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EDITO 


Avouez que pour 10 balles, on vous 
offre vraiment de bons program- 
mes ! Vous pourriez pourtant payer 
encore moins cher ces Hors-Séries… 
Comment ? Cette question ! En vous 
abonnant à CPC, pardi ! Les abonnés 
à la revue CPC reçoivent, en plus du 
mensuel, les numéros hors-séries que 
nous Pusñere tous les deux mois ! 

Vous hésitez encore ? A votre place. 
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EDIT 2 


Bernard BESSE 








Lorsqu'un programme BASIC en cours de développement atteint 
une certaine dimension, les possibilités de l'éditeur intégré 
deviennent insuffisantes et le besoin d’un éditeur de texte com- 


mence à se faire sentir. 





Mais ce que l’on gagne en puissance 
avec un éditeur séparé, on le perd en 
souplesse car, même pour des opéra- 
tions limitées, il faut : 

— sauvegarder en ASCII (s’il ne l’est 
déjà) le programme à ‘‘éditer’”, 

— charger l'éditeur, 

— charger le programme à éditer. 


Et à la fin du travail : 
— sauvegarder le programme édité, 
— charger le programme édité. 


Contrairement aux éditeurs séparés, 
l'éditeur intégré opère en ‘‘temps réel'” 
puisque, sitôt une modification effec- 
tuée, il est possible d'exécuter le pro- 
gramme, sans avoir à charger ou sau- 
vegarder quoi que ce soit. 

Le programme EDIT2 a pour but d’ajou- 
ter aux possibilités de l'éditeur intégré 
les fonctions temps réel suivantes : 
— trouver toutes les occurrences d’un 
NOM de variable, 

— trouver toutes les occurrences d’un 
NUMERO de ligne. 


4 


Ces fonctions permettent notamment : 
— de créer un nom de variable en 
toute connaïssance de cause, 

— de vérifier si les noms des variables 
figurant dans une routine à MERGE:r ris- 
quent d'interférer avec ceux déjà pré- 
sents dans le programme, 

— de changer d'une façon sûre le nom 
d'une variable, 

— de s’assurer qu'une ligne n’est pas 
référencée avant de la supprimer. 


MISE EN OEUVRE 


EDIT2 est stocké en format ASCII à 
partir de 60000. 


Après chargement du programme en 
cours de développement : 

— créer une ligne 1 GOTO 60000 
— faire MERGE ‘'edit2 


Faire RUN (ou RUN 60000 s'il n’y a pas 
la ligne 1 déjà citée), puis : 

— choisir la sortie sur imprimante ou 
sur écran, 





— entrer un nom de VARIABLE ou un 
NUMERO de ligne (pour revenir à la 
question précédente ‘‘Imprimante ou 
Ecran'”, faire seulement ENTER). 

La variable peut être écrite en majus- 
cules ou en minuscules (ou un mélange 
des deux). 

On ajoute les suffixes %, !, $ s'il y a 
lieu et, si la variable est indicée, une 
parenthèse gauche. 

Exemple : biduLE$ [sans espaces] 


Renumérotation du programme édité : 
— on peut, au cours du traitement, 
faire RENUM sans être ‘obligé de réta- 
blir la numérotation d'EDIT2 à partir de 
60000 

D'où l'intérêt de la ligne initiale 1 GOTO 
60000 


EDIT2 s'arrête par BREAK. 


POINTS PARTICULIERS 


La recherche se fait principalement par 
INSTR et non par PEEK (c'est beaucoup 
plus rapide). 

Le procédé utilisé est celui de la chaîne 
forcée, on force dans les 3 octets du 
descripteur d'une variable ZZ$ (des- 
cripteur créé en faisant ZZ$ =") : 
— la longueur de la ligne, 

— l'adresse de la ligne (2 octets). 


Le numéro d'une ligne référencée peut 
exister sous deux formes : 

— le numéro lui-même en binaire sur 
2 octets, 

— l'adresse de la ligne en binaire sur 
2 octets. 

La routine ADRLINE a pour but de trou- 
ver rapidement l'adresse de la ligne 
dont on recherche les occurrences. 


EDIT2 s'arrête, non pas sur le test 
NUMERO ligne > = 60000, mais sur le 
test ADRESSE ligne > = ADRESSE 
1ère d'EDIT2, ce qui permet l'utilisation 
de RENUM. 


A la fin d'une séance, si la mise au 
point n'est pas terminée, il est souvent 
souhaitable de SAUVEGARDER 
ensemble le PROGRAMME + EDIT2. 
On est ainsi prêt à opérer dans les meil- 
leurs délais à la séance suivante. 


Pour traiter EDIT2 par EDIT2 : 
— charger EDIT2, 

— RENUM 62000, 

— MERGE'EDIT2, 

— créer ligne : 1 GOTO 62000, 
— RUN. 


L'attention de nos fidèles lecteurs est 
attirée sur les routines machine KDEEK 
et KDOKE (1er K pour déKalage) plus 
versatiles que DEEK et DOKE. 
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### Ne pas enlever cette iere Ligne ### 

66018 p$="aditi": PRINT CHR$(7)CHRS (FEEE ( 

&A700)+65)" : “p$" Ascii":SAVE p$,a: END 

66EG 

54976 ‘(ci Bernard BESSE 
66449 

66056 : 

64969 CLEAR:ON BREAE GOSUEB 61116: MODE 2: 

DEFINT a-zsvr=-1: fast z2$="" 

66876 ‘ CALL ékdeek(1), Adresse de Base, 
Derlacement, @Ri (Ri=Val. DEEK) 

66684 DATA DD,6E,44, DD, 66,45, DD, SE, 62, DD 
,96,03,19,9E, 23,96 | 

66696 DATA DD,6E,60,DD,66,61,73,23,72,09 
69196 RESTORE 66006: DIM kdeek (12) :r1=0 
68118 FOR k=1 TO 13:READ 1$,m$:kdeek (k)= 
VAL CH 4 m$+1$) :NEXT E 

6120 ‘ CALL @kdoke(1), Adresse de Base, 
Deplacement, Valeur a DOKER 

69138 DATA DD,6E,44,DD,66, 45, DD, SE, 62, DD 
,36,03,DD,4E,69,DD j 

6h149 DATA 46,61,19,71,23,70,09,08 

60150 RESTORE 66136:DIM kdoke(12) 

66169 FOR k=1 TO 12:READ 1$,m$:kdoke(k}= 
VAL ("EH +m$+1$):NEXT k 

69176 ‘ CALL &adrline(i}, NUM, ER1 (Riz 
adr.de la ligne NUM) 

89180 DATA DD,4€,02,DD,46,03,FD,21,6F,61 
,FD,6E,43,FD, 66,64 

69196 DATA E7,ED,42,28,14,36,6E,FD,5E, 01 
,FD, 56,92, 78, B2, 28 

69206 DATA d4,FD,19,18,E5,FD,21,06,64,FD 
,E9,D1,DD,6E, 06, DD 

69218 DATA 66,01,73,23,72,C9 

69226 RESTORE 69186: DIM adrline(27):r1=0 
69276 FOR k=1 TO 27:READ 1$,m$:adrline(k 
)=VAL ("4 +mb+1$) :NEXT k 

69246 RESTORE 64006: CALL&kdeek (1) ,2ÂE34, 
d,@ri:adrétäñô=ri" adr Îere ligne 

66258 : 

66264 CLS:PRINT"£Tmprimante ou ‘Ecran 
En 

69279 WHILE INKEY$£:"":HEND 

69284 ie$=UFPERS(INÉEYS#):IF ie$=""THEN 6 
9280 

69290 IF ie$="E"THEN ca=6 ELSE IF ie$="I 
"THEN ca=8 ELSE PRINT CHR$(73:G60T0 66250 
80306 PRINT ie$ 

68314 : 

69329 -deb=368:num=fa: ref=é 


863534 INFUT'Nom (VARIABLE) où Numero (LI 
GNE) ":name$:nm$=nanes 

84346 IF name$=""THEN 60250 

68356 IF INSTR(name$," “)>6 THEN PRINT C 
HRE (7); :GOT0 66716 

66368 name$=UFPERS (name$) : 1V=LEN (names) : 
pg=fa 

66376 car.ok$=",. ABCDEFGHIJELMNOPGRSTUVHX 
Y21234567896" 

69386 xx=INSTR (car.ok$,LEFT$ (names, 1)):1 
F xx€2 THEN PRINT CHR$(7);:G0TO 66310 
86598 IF xx228 THEN 60519 

66466 IF VAL(name$)=0 OR VAL (namef) 6553 
3 THEN PRINT CHR$(7)::G0T0 64314 

66415 FOR k=2 TO 1v 

66426 IF INSTR(car.ok$,MID$inamef, k, 1) 
1228 THEN FRINT CHR$(7):;:G0T0 65310 
643% NEXT 

66444 zline!=VAL (name): IF zline!:32767 
THEN zline=zline!-65536 ELSE zline=zline 
! 

66458 1sb=PEEK (@zline) :msb=PEEK (&zline+i 
) 

6648 look2$=CHR$ (36) +CHR$ (1sb ) +CHR$ (msb 
} 

66470 CALL@adrline(i),zline,éri 

&6484 1sb=PEEK (@r1) :msb=PEEK(@r1+1) 
66496 look1$=CHR$ (29) +CHR$ (1sb)-+CHR$ (msb 
} 

69588 num=vr:G0TO 60688 

68518 
60526 IF RIGHTS (name$, 1)=" ("THEN pg=vrin 
ame$=LEFT$ (name$, 1v-1): 1v=lv-1 

66536 IF RIGHT$(name$, 1)="X"THEN type=2: 
GOTO 60579 

66546 IF RIGHTS (name, 1)="$"THEN type=3: 
GOTO 46579 

60550 IF RIGHT$(name$, 1)="!"THEN type=4: 
GOTO 6057û 

66568 type$="":G0TO 69590 

69570 : 

60589 type$=CHR$ (type) :name$=LEFT$ (name 
.lv-ih:lv=lv-i 

68596 : 

66606 IF lv=1 THEN 66649 

66618 FOR k=2 TO 1v 

66624 IF INSTR(car.ok$,MID$(name$,k,1) 
)=4 THEN PRINT CHR$(7)::G0T0 60314 
66630 NEXT k 

bObA4G : 

60656 der$=RIGHT$ (name$, 1} :name$=LEFT$ (n 
ame$,lv-1}:1v=1v-i 

60666 der=ASC(der$):maju=der+128: IF der} 
=65 AND deri=96 THEN minu=maju+32 ELSE m 
inu=ma ju 

68670 look2$=type$+STRINGS (2,6) 

60688 : 

6669 ‘--- Recherche et Affichage -—- 
66764 PRINT#ca, "LIGNES contenant VARIABL 





E (ou LIGNE): “;nm$ 

80719 PRINTHCA, "> 
6ÿ72% 1g=ù 
66736 : 
65745 deb=deb+1q:CALLEkdeek (1) , deb, 0, &r1 
:1g=ri:1F 1q=0 THEN 61084 

66754 CALL@kdeek (1) ,deb,2,@riinline=r1 
88764 IF nline: THEN nline!=nline ELSE 
nline'!=65536#nline 

64776 IF debadrb960û THEN 61089 

69780 IF 1g>235 THEN PRINT#ca:PRINT#ca, * 
Reduire Jong.ligne";nline!;"SVP":END 
479% POKEGzz$, 1g:CALLEkdoke(1),@zz$,1,d 
eb 

£ÿBg9 ci=i 

64819 : 

6828 IF NOT num THEN 60670 | 
668236 yy=INSTR(c1,22$, 100k1$) : xx=INSTR(c 
1,22$,100k2$) 

66846 IFlxx OR yy)=0 THEN 69730 

66850 IF yy>9 THEN IF xx=0 THEN xx=yy EL 
SE xx=MIN(XX, yy) 

40869 GOTO 60896 

65870 : 

BBBBG xx=INSTR(cCI,22%,lo0k2$):IF xx=û TH 
EN 69736 

65896 : 

68968 ci=xx+| 

6916 IF num THEN 61954 

64929 ad=deb+xx+1v+2:1F type$=""THEN ad= 
ad-1 

64920 IF PEEK(ad)<)maju AND PEEK (ad) mi 
nu THEN 69810 ° 
66940 IF UPPER$(MID$(2z$,xx+LEN(1ook2$}, 
1v))€name$THEN 69810 

63950 FOR k=ad+i TO deb+lg-1 

66969 IF PEEK(K)=32 THEN 60990 

69976 IF PEEK(kK)=40 THEN IF pq THEN 6i 
924 ELSE 60810 

6998 IF pq THEN 69819 ELSE 61020 
68998  : 

b1609 NEXT k 

61416 IF pg THEN 66818 

61920 : 

61630 IF type$<>""THEN 61950 

61949 type=PEEK(deb+xx-2}:1F type<ii OR 
typei3 THEN 60810 

61959 : 

61469 IF ref MOD 13=0 THEN PRINT#ca 
61970 PRINTHca,USING"######"inline!;:ref 
=ref+i:G0T0 66819 

b1986 : 

61996 PRINT#ca: PRINT#Ca, 
61169 GOTO 60310 

61119 :REM<BREAK? 

61126 CLEAR:END: RETURN 

61136 :‘## LIGNE FIN - Ne pas enlever ## 


FRANCE 
RIVIÈRES 


Gerard JOULAIN 


Vous avez 


COURS d’EAU : 


Le titre est éloquent, le reste coule 
de source. 

A signaler, pour les 664 et 6128, 
un décalage des caractères élargis. 
Mis à part cela, le programme fonc- 
tionne correctement. 


id FRANCE - RIVIERES 

26 

36 MEMORY 29FFF 

49 FOR A=LAGO0 TO LAGAE 

56 READ E$:POKE A, VAL("&"4+B6) 

bà NEXT 

7à CALL 44000 

86 DATA 61,09, A6,21,29,A0,C3,D1 

96 DATA BC, 14, 46,C3, 3D, Ab, C3, 50 

190 DATA A9,C3,68, AD, C3, 7E, A0, C3 
116 DATA 93, A0, 4D,4F, 44,45, 30, Bi 
126 DATA 4D,4F,44,45,21,B1,4D,4F 


6 








Educatif 











134 DATA 44,45,3û,52,4D,4F, 44,45 
149 DATA 31,82, 4D,4F,44,45,32,E2 
156 DATA 66,66,00,66,00,FE, 40, Cû 
1éê DATA 3E,64,32,C8,B1,3E, CC, 33 
176 DATA CF,Bi,3E,37,32,D0,B1,C9 
184 DATA FE,06,C9,3E,41,32,C8,B1 
196 DATA 11,CF,E1,21,64, 0, bi, ü4 
204 DATA 06,ED,B6,C9,88,44,22, 11 
218 DATA FE, 00,Cû,3E, 06,32, C8,Bi 
226 DATA SE, F0,32,CF, B1,3E,ëF, 32 
238 DATA D6,1,C9,FE, Gà, C8, 3E, 01 
249 DATA 32,C8,B1,11,CF,B1,21,8F 
256 DATA A6,61,64,06,ED,B6,C9,Cû 
26 DATA 36,0C,63 3,FE, 906,C8,3E, 07 





“276 DATA 32,C8,81,11,CF,B1,2%1,A7 


286 DATA AG,91,08,09, ED, BU, C9, 80 
298 DATA 49,20, 10,08, 04,02,01 
300 RESTORE 254 


F316 FOR ASSAZE6 TO HAZE6+I148 


320 READ B#:POHE A, VAL ("R"4B4) 
330 NEXT 

340 CALL RA2ES 

354 DATA 01,F3,A2,21,EF,A2, C3, D1, BC, 00,4 
ÿ,00,00,F8 

364 DATA A2,C3,FE, A2, 44,48, 41,55, D4, 06 


376 DATA DD,6E,60, DD, 66,81,46,23,5E,53 
286 DATA S6,ER,7E,ES, GE, 26,91,6F, 26, à 
378 DATA CS,66,67,54,50,19,19,FE, 11,60 
496 DATA 59,19,2E,19,CD,5A, BB, 3E,FE, CD 
416 DATA SA,BB,06,04,CD, 66, 89, 4F,5E, 79 
26 DATA CD, 4C,E9,7E,CD,54, BE, CD, 54,BE 
450 DATA 23,14,ED,3E,19,CD,58,EBB,ZE,FF 
448 DATA CD, SA.BE,@6,04,CD,06,89,4F,5E 
450 DATA 79,CD,6C,H9,7E,CD,5SA,BE, CD, 5A 
46ÿ DATA BE,23,14,ED,3E,FE,CD,54, BE, ZE 
474 DATA GA, CD, 5A,EE,3E, 48, CD, SA, BB, ZE 
486 DATA FF,CD,54,E ,2E,8E,CD,54,BE,CI 
496 DATA E1,27,14,96,C5 
960 MODE Z:EORDER 1 
319 IMODE12:LOCATE 14,2:PRINT "Gerard JO 
ULAIN":FOR I=i TO 1G4G:NEXT 
929 :MODEZZ:LOCATE 36,6:FRINT "presente" 
FOR I=i TO SÉG:NEXT 
339 IMODEA2:LOCATE 6,12:A$="LA FRANCE": : 
DHAUT, GAS: LOCATE 8,16:PRINT “et ses": LOC 
ATE 5,19:A$="COURS D'EAU": : DHAUT, 4 
944 IMODEZZ:LOCATE 38,24:PRINT "1966" 
298 RUN "riviere" 





19 FRANCE - RIVIERES II 

20 

36 DIM RIS (66) ,RX (66) ,RY (bé , BAS (66) , VIS 
(81),VX(81),VY (81), RIV# (81) ,VA$ (813 ,DE(B 
1) 

4% GOSUB 4730: G0SUB 4970:POKE SB4EB, 235: 
G60TO 3056 

5 DATA -19,-3,-6,-1,-4,-4,-2,-2,0,-18,- 
1,-4,-5,-8,-8,-46,-2,0,-2,-2,-4,0,-b,-84,- 

4,0,-4,-8,2,-2,4,-1,-4,-1,-8,-6,-4,3,-10 
Î 

4 

64 DATA -6,2,-4,- dl Fe -2,4,4,4,-4, 

2eb,220,9 21021,3,23,0.-6,8:-10,22.-8 
1,-12,3,-2,-10,-2,0,4, pe -4 

70 DATA -2,2,0,2,-4,0,-6,-6,-10,14,-10,- 

2,-3,-6,-5,2,0,-4,-2,6,-2,4,-12,-2,-8,-4 
127 44,1,6,0,0,-4,-5,0,-2,2,-1,-1,8,-4 

84 DATA 1,-1,4,2,6,4,0,-4,-6,4,-4,-2, 4, - 

4,2,-6,4,0,0,4,6,-2,2,-2,1 
4 2-3,0,3415 2-3 

99 DATA -4,0,1,-2,4,-1,6,1,1,-5,-13,-1,84, 

-4,2,-2,8,2,3,1,6,-5,-5,2,-5,-2,4,-2, 2, - 
4,-4,-4,0,-4,6,-19,8,-6,16,-2,-4,-4,4,-à 
14,-6,-4,-4 

169 DATA pr -5,6,-8,2,-12,-4,14,-19, 

#: Sa 6,-28, he 3,74 





n Le | 
CRT ST: 








LS TE 
119 DATA 153 Er 
ph, 6,2, à, — 
4,0,4,-4,2,2,8,-3 
124 DATA 2,-2,4,6,2, 4, 8,4,8,-5,3,1,-1,5 
82,9,0,0,2,-4,4,1,2,0, 12, RS PP 
1 h906,214,12,3,-4 6 

136 DATA À nn 0,9,-4,1,-2,-2,9,-4,8 

104%0,3,-4,8,2,2,-2,-2,-2,15,-5,6,- 
4,2,2,19,0,8,6,-3,2,1,2,8,4,-1,2,7,4,8,2 
146 DATA 12,4,-2,6,6,4,-4,4,-5,-2,-15,4, 


cs? £. 2 | 
3,0,2,-4,6,-2,4,8,6,-6,5,2 


12,1,8,5,10,-2,2,-2, 


T 






-3,4,0,4,-2,4,4,6,0,4,-b 
,2,4,2,8,-6,4,0,4,-4,4 
154 DATA 6,8,-8,6,-2,6,-4,4,-6,-2,-5,-3 
1,-3,-4,-3,-4,-1,-1,2,5,4,-2,6,2,6,6,8,- 
2,5,6,2,10,12,-6,0,b,b, 2,-4 
166 DATA 4,2,2,4,-2,6,2,10,-2,4,4,18,0, 1 
9,8,12,-4,2,-16,0,-6,4,-4,-2,-3,09,-2,3,- 
3,-1,0,-2,-2,4,-8,12,-2,0,-2,3,-8,-4,-4, 
4,-4,0,-2,-2 
170 DATA -B,6,-8,4,0,4,-2,4,60,B,-3,0,-3, 
-8,-8,0,4,6,-2,2,4,4,-4,2,-8,0,-2,6,-6,0 
17908,-3,-2,-8,4,0,6,-23,4,-100, 168 
184 RESTORE 199:G0T0 4894 
198 DATA -2,4,0,2,-4,4,1,2,-2,4,-3,4,-3, 
4,-4,2,-2,4, 3,2, “3,3, -3,2,-6,-3,-4,0,-4 
-3,-4,-1,-4,0,-3,2,-1,2,-4,2,-4,4,0,2,2 
-3,3,-3-1;1 73 572,042 0, "1,73, 
-7 


,2,-6,6,0,2,10,2 


2e 
12 

32,-3,72 2124 -2,-1,1,3,0,2,-2,-2,-5,5, 
1,2,-1,2,-2,-2,0,2,-3,1 

269 DATA 

4,-1,-3,- 
12,-2,-2, 160,90 

216 RESTORE 226:60T0 4894 

220 DATA -4,5,-5,3,-1,9,-13,11,-5,2,-6, 1 
100,90 

230 RESTORE 240:G60T0 4899 

249 DATA 1,2,-5,8,0,12,-4,5,-9,1,-5,8, 4 
,5,-12,2,-8,-3,-2,-3,-3,1,-3,-1,0,2,-2,1 
0,-1,-1,0,0,-2,-4,1,0,-2,-3,0,1,-2,-3,1 
-1,-1,-100,98 

256 RESTORE 266:G0TO 4890 

260 DATA -4,-2,-2,-2,-4,0,-b,-2,-2,2,-2, 
-4,-4,-3,0,-5,-b,-2,-2,-2,0,-1,-2,0,-2, - 
2,-2,-5,-4,0,-3,-2,-2,-4,-3,-1,-4,-3,0,- 
2,-106,90 

274 RESTORE 289:G0T0 4896 

286 DATA -4,2,-4,4,0,8,-4,2,0,4,-4,3,-E, 
0,-7,-5,-10,0,-3,-2,-6,2,-2,1,-100,90 
29û RESTORE 366:G0T0 4899 

300 DATA 2,-4,0,-8,-2,-4,0,-2,-100,90 
316 RESTORE 326:G0T0 4896 

320 DATA @,4,-6,4,-5,10,2,6,-4,8,0,4,-5, 
2,-1,4,-4,7,-3,1,-100,90 

330 RESTORE 346:G0T0 4896 

340 DATA -6,8,0,4,-4,4,-4,2,0,2,-6,4,-b, 
0,-100, 90 

350 RESTORE 364:G0T0 4894 

360 DATA -4,2,-3,4,0,6,-3,2,-2,13,4,2,-1 
46,90 

370 RESTORE 2386:60T0 4896 

384 DATA 16,-4,1,8,-4,4,-1,3,2,3,-7,10,0 
,5,-100,90 

398 RESTORE 496:G0T0 4894 

409 DATA 4,2,4,9,-2,9,-2,2,-2,0,-b,3,-10 
0,100 

416 RESTORE 426:G0T0 4896 

420 DATA -2,-4,-4,4,-2,6,0,4,4,2,1,4,3,4 
0,6,-2,4,0,4,-4,6,0,2,2,2,-3,10,-2,2,1, 
3,-6,2,-2,5,-4,5,-4,1,-4,4,-4,0,-2,8,-2, 
4,9,8,-6,4,-b,4,-4,2,-2,2,-4,6,-3,2,-2,1 
174,2,-4,-5,-6,-6,-19,-5,-5,1,-9,-4,-4,- 


60, 1,2,11013,-2,0,-2,-3,-2, 


1,2,9,2,-2,2,-2,-2,0,-2,-2,0,-2 


3,-4,2,-10,-2,-6,-4,-4,-1, 


2,0,2, -4,1,-2 


678 DATA 


436 DATA -3,-1,-3,6, -6,7,-4,1,-4,-1,-2,- 

-b,3,-146,96 

444 RESTORE 456:G0T0 4896 

45ù DATA 3,-1,-3,7,-6,16,-6,4,1,6,-5,16, 

1,6,1,4,2,4,0,8,-4,10,0,4,-2,4,-6,4,1,6, 

144,96 

464 RESTORE 476:G60T0 4896 

478 DATA -2,2,6,12,1,2,0,8,-1,4,-6,7,-4, 

de 25 7 0545-65-93, -0,1,-3,2,-2,0,-4 

,7274,6,-108,9ù 

404 RESTORE 496:60TD 4894 

499 DATA -5,6,-3,2,-4,6,-B,2,-7,4,-5,8,- 

4,3,-2,1,-4,- 2,-6,2,-106, 96 

960 RESTORE 916:60T0 4894 

914 DATA - a om ET ne 
,741,-4,-1,-2,2,6,19,-2,6, 12 4,2, 10,-2 4 

1,-5,4,-3,2,-146,98 

J26 RESTORE 5:6:607T0 4894 

334 DATA 2,4,0,4,-8,16,-9,6,-2,4,-2,3,-1 

2,2,-4,9,-2,1,-2,5,-2,1,-168,90 

944 RESTORE 556:G0T0 489ù 

994 DATA -4,1,-2,3,-4,1,-1,15,-7,3,-6,4,- 
Ds 2 -3,2,0,1,-106, 66 

J66 RESTORE 576:G60TD 4894 

274 DATA -2,-3,-8,-4,-4,-2,2,-2,5,-1,-1, 
“i,ë, 3,4, r6,Ti ÊL 274, 1,-5,-2,0,-2,1, 
-2,-1,-2,-2,-1,-4,-1,-1,-1,-3,-166,96 

969 RESTORE 596:G60T0 4896 

994 DATA ed à 

A ESS OL SS ES; 

9,-196,96 ‘ 

bG RESTORE 61%:G60TD 4894 

618 DATA -6,2,-4,-5,0,-5,-3,-6,0,-6,1,-6 

4,-4,3,-4,-106,1696 

624 RESTORE 636: G0T0 4890 

630 DATA -1,-5,-160, 106 

64% RESTORE 65%:G0T0 4896 

654 DATA -4,-5,-5,2,0,4,-3,2,-5,-2,-3,1, 

-3,-3,-18,5,-10,6,-166,96 

béë RESTORE 676:G0T0 4996 

-2,4,-6,0,-4,6,-4,2,8,14,-160,9 


a 3 
a 









à 
68é RESTORE 696:60TG 4896 
890 DATA 4,4,-4,3,0,2,-2,5,2,2,-2,5,-106 
78 
766 RESTORE 716:G0T0 4894 
716 DATA 2,-2,6,0,3,4,6,6,- 2,2,-106, 96 
720 RESTORE 736: G0T0 4894 
736 DATA 2,-6,4,-4,5,-4,-1,-4,-4,-4,-4,- 
4,-164,90 
744 RESTORE 754:G60T0 4898 

750 DATA -2,-4,-4,0,-4,-2,-3,2,-5,-2,0,- 
… 1,-4,6,-4,-5,6,-2,-2,-4,-2,-2,-2,-4,0 
,-169, 96 
76% RESTORE 776:G0T0 489ÿ 
770 DATA 
1,-196,96 
786 RESTORE 796:G0T0 4856 
796 DATA -5,4,-1,4,-4,4,-4,0,0,-8,-4,-2, 
0,-4,2,-4,-4,-2,-4,4,-8,2,-3,2,-1,4,-10, 
5,-109,9û 
869 RESTORE 814:G0T0 4896 





0 er de 70e li Ge 


g1à DATA -4,6,-2,8,0,8,-2,4,-8,4,-14,2,- 
4,-3,-4,-1,-4,-6,-4,-1,-2,3, 180,90 

820 RESTORE 834: 6010 4890 

820 DATA ,4,-2,4,1,2,-5,3,-4,6,-4,3,-4, 
1,-4,2,-4,3,-4,-1,-4,-1,-100,96 

g4à RESTORE 850: G0T0 4890 

e5o DATA 2,6,2,2,9,4,5,0,4,2,3,0,-104,90 
860 RESTORE E7ü:G0T0 4894 

879 DATA 2,0,0,4,-1,2,3,3,1,10,4,5,6,-2, 
2,2,12,2,4,-2,-100, 90 

28û RESTORE 894: 60TD 4890 

890 DATA 2,-4,0,-8,-4,-3,9,-4,-3 
,-196, 95 

906 RESTORE 910:60T0 4890 

918 DATA 3,-4,-2,-4,1,-1,10,-2,2,-3,-1,- 


RS 


4,1,-2,-100, ie 
924 RESTORE 9236: G0T0 4894 

9238 DATA -6,4,0,9,-4,5,9,3,7,-1,7,4,4,6, 
MAC RES EE EE Le 
2,8,2,-4,4,-6,4,-2,-2,-3,0,-1,4,-b,6,2, 
4,-4,6,6,4,-2,4,-106,96 

946 RESTORE 956:G60T0 4854 

956 DATA 2,6,-6,6,0,8,-2,8, -2,2,0,2,-2,4 
196,96 

946 RESTORE 974:G0T0 4894 

976 DATA -4,-2,-2,2,-4,-2,-2,0,-4,-4,-2, 
-4,-6,-4,-4,8,-2,-2,-5,-2,-4,0,-8,-2,-4, 
-3,-4,0,-4,3,-2,2,-2,5,-4,1,-2,-2,-100,9 
ÿ 

986 RESTORE 996:G0T0 4896 

99% DATA -6,4,-8,-3,-8,1,-2,0,-5,-4,-1,- 
4,-6,-2,-2,-2,-4,2,-6,1,-1,-1,-100, 90 
1466 RESTORE 1414:G0T0 4899 ÿ 
1818 DATA -19,0,-6,-2,-4,2,-6,0,-4,5,-8, 
-4,-2,-24,0,-6,-4,-4,2,-6, 


etes 


£ nm 29 
Ts 






ët 


2,71,73,7-5,0, 
-2,-160,94 
1924 RESTORE 16:4:G0T0 4896 

1930 DATA -4,2,-3,-4,0,-4,-3,0,-2,-4,-6, 
-4,-4,-4,-4,-2,6, el -à, 1° Done 


ini 2,2,-4, “2 -14,1,-3,2,8 
hd, 2,3, -3,1,-180,9 
à 


1944 RESTORE 1456:G0T0 4896 

1958 DATA -11,-16,8,-6,-7,-2,-6,-6,-164, 

96 

1464 RES TORE PU: GOTO 4856 

1876 DATA - 

4,-2,-16,4,-2,-2,-160,96 

1684 RESTORE 149%: EOTD + 

1894 DATA <6,-4,84,-1,- 

6,72,-5, 106,96 

1igé RESTORE 1116:G0T0 4854 

1119 DATA 2,4,2,8,1,10,3,4,-2,4,3,4,-1,5 

188,98 

1124 RESTORE 1174:60T0 4866 

1138 DATA 6,6,2,2,-5,14,-2,4,2,2,-100,18 

ë 

1146 RESTORE 1156:607T0 4894 

1158 DATA -18,-5,-3,4,-4,6,-6,-1,-3,-1,- 

PP en RRANÉENERERNES 

li e1,2, 2,65 1555, F1 74, -Ë, 

-4,-4,-4,-2,-4,-4,1,-4,-3,-12,-3,4,-5,4, 
7 


6, -5, 2, -?, ee 3,-4,à,-5,-4, æ, 


4, “à “br en 2,5, -b 





-4,4,-3,-2,- re 
{iéë DATA - 


272 Er eee 2,744 





h,-2,-4,-2, 
ÿ,-3 372 ” 0-7 d,- 
4,1,-3,2, -2,-108,90 

1176 RESTORE 118û: 6OTG 4594 

1184 DATA -4,0,-2,-2,-2,-6,0,-4,-2,-6, 2 
,72,74,-6,-1,-8,-148, 94 

1196 RESTORE 1266:G010 4896 

1266 DATA -4,-4,2,-2,6,-4,2,-2,-2,-4,-6, 
-4,-b,-8,-2,-6,-6,-4,-2,-6,3,-6,0,-6,-2, 
419,4, -10,2,0,2,-6,-100,90 

1216 RESTORE 1224:G0T0 4896 

1224 DATA 4,4,-1,4,3 F2 4,2,6,4,8,3 169 3,6 
4-8, -à,- 232,214, 72 2, -14,-8,-2,8,-4,-6 
: -3,2,-17 72,146 
1236 RESTORE 1246:6070 4994 

1246 DATA -4,-6,-3,-6,-5,-6,-4,0,-12,-2,- 
4,-2,-2,0,-4,2,-100,94 

1254 RESTORE 1260:G60T0 4858 
1266 DATA 6,1,1,-2,-2,-5,9,-4, 
1276 RESTORE 1286:G60T0 4896 
1289 DATA 2,-2,4,-2,3,0,5,-5, 
de, 9ù 

1294 RESTORE 1364:G0T0 4894 
1260 DATA 2,2,-4,8,-7,-4,-7,2,-2,4,-7,-4 
5791-4,-4,-14,-4,0,-4,7,-2,-4,-6,-4,-6,- 
2,-2,-2, 108,96 

1319 RÉSTÈRE 1326:60T0 4894 

1326 DATA - 
2,2,-3,4,1,4,-3,1,-160,90 

1336 RESTORE 134%:G60T0 4896 

1346 DATA -2,-2,1,0,0,-2,-2,4,-4,2,-5,4, 
-4,6,2,14,-100,90 

1356 RESTORE 1364:607T0 4896 

1360 DATA -4,2,-3,4,-1,2,-4,2,-1,-2,-3,- 
1,-4,3,-3,0,-100,70 

1374 RESTORE 1389:G0T0 4898 

1386 DATA 4,-2,0,-12,-4,-4,- Mes 
ÿ,-4,3,-6,-2,-4,6,-4,-3,-6,-6,-2,-8,4,-4 
10-79,-2,0,-1604, 98 

139% RESTORE 1499:G60T0 4899 

1464 DATA 9,-5,-2,-5,2,-4,-6,-5,-4,6,-2, 
-3,-6,2,-2,-2,-100, 146 

1416 RESTORE 1420:60T0 4896 

1426 DATA -8,4,-2,6,2,10,-2,4,4,10,8,16, 
8,12,4,8,2,6,-190,94 

1436 RESTORE 1449:G0T0 4894 

1446 DATA -4,2,4,8,0,6,1,6,-1,2,2,2,2,8, 
3,7,1,0,-100,9ù 

1458 RESTORE 1466: GOTO 489 

1466 DATA -4,4,-2,4,-2,2,-2,4,-4,4,-2,6, 
-2,2,-4,2,-2,-1,2,4, 4,2,-4,6,2,8,114,-1, 
2,4,2,2,3,2,1,0,8,2,4,4,6,-160,96 

1476 RESTORE 1486:607T0 4896 

1486 DATA -4,4,0,4,-6,4,-4,3,-4,5,-2,-2, 
-4,4,-100,90 

1494 RESTORE 1566:60T0 4898 

1586 DATA AE à, Le 1,2,1,2,-3,2,-1,4 
: A 1,4,-4,6,-2,3,0,2,-3,4,4,4,-4,8,-4 


3 “À: “22,0,2,2,2,74 4,2,6,0,6,2,-2 Ès 4,6,- 


8 


+ 
3" B3,2, 10,5 . 4 -2,3,- 






-140,98 


8,0,2,-3,-1 


2,-2,-4,-2,-1,-2,-3,-2,-6,2,- 


166,166 

1516 RESTORE 1526:G0T0 4894 
1526 DATA -2,-4,-2,-2,-2,-4,-2,-2,-4,-2, 
-1,4,-164, 160 

1524 DATA LA SEINE, 66, -13û 
1546 DATA L'AUBE, 68, -124 

1558 DATA LA MARNE, 67,-118 
1564 DATA L'OISE, 44,-28 

1576 DATA L'AISNE, 66, -78 

1586 DATA L'EFT,-26,-56 

1598 DATA L'YONNE, 46, -156 
1696 DATA L'ARMANCON, 54, -146 
1618 DATA LE LOING,18,-138 
1ë24 DATA L'EURE, -44,-96 

1636 DATA LA RISLE, -54, -88 
1644 DATA LA LOIRE, 56,-232 
1656 DATA L' ALLIER, 49, -242 
iëéà DATA LE CHER,8,-192 

1674 DATA L'INDRE, -4,-172 
1684 DATA LA VIENNE, -6,-240 
1694 DATA LA CREUSE, -5,-196 
1746 DATA LA SEVRE NANTAISE, -76,-182 
1714 DATA LA SARTHE, -48, -92 
172% DATA LE LOIR, -36,-183 
1724 DATA LA MAYENNE, -64, -98 
174% DATA LA MAINE,-72,-116 
1756 DATA LA SOMME, 29, -44 
176% DATA L'ORNE,-56,-92 

1776 DATA LA VIRE, -84,-86 
1784 DATA LA RANCE, -123,-103 
1796 DATA LE BLAVET,-142,-96 
18% DATA LA VILAINE, -84,-166 
1814 DATA LA SEVRE NIORTAISE, -6à,-174 
1824 DATA LA CHARENTE, -49,-196 
1834 DATA L'ADOUR, -52,-342 
1846 DATA LE GAVE DE PAU, -64,-348 
1854 DATA LE TET,-3,-314 

186% DATA L'AUDE,-6,-312 

1874 DATA L'HERAULT, 36, -256 
1884 DATA LE VAR, 118, -248 
1896 DATA LA GARONNE,-34,-312 
1964 DATA L'ARIEGE, -12,-316 
1919 DATA LE TARN, 46,-246 
1924 DATA L'AVEYRON, 22, -25ô 
1936 DATA LE LOT, 36, -242 

194% DATA LA DORDOGNE, 14,-292 
195û DATA LA VEZERE, -14,-204 
1965 DATA LA CORREZE, -8,-2ÿ6 
1974 DATA L'ISLE, -28,-198 
1986 DATA LA DRONNE, -74,-198 
1996 DATA LE GERS,-48,-294 
2686 DATA LA BAISE, -59,-296 
2616 DATA LE RHONE, 135,-169 
2424 DATA L'AIN,92,-156 

26134 DATA LA SAONE, 88, -198 
2644 DATA LE DOUBS, 96,-156 
2454 DATA L'OGNON,194,-116 
2664 DATA L'ARDECHE, 56, -23 
2676 DATA LE GARD, 4, -254 
2684 DATA L'ISÈRE, 122, -264 
2496 DATA L'ARC,126,-264 

2184 DATA LE DRAC, 144,-22 


2119 DATA LA DROME, 92, -240 
2126 DATA LA DURANCE, 188, -226 
2136 DATA LE VERDON, 114, -246 
2149 DATA LE RHIN, 138, -122 
215% DATA L'ILL, 124,-121 
2186 DATA LA MOSELLE, 110,-112 
2176 DATA LA MEURTHE, 116,-102 
2186 DATA LA MEUSE, 77,-110 
2196 DATA TROYES, 46,-168,LA SEINE 
220% DATA MELUN, 6,-96,LA SEINE 
2219 DATA PARIS, -2,-84,LA SEINE 
2226 DATA ROUEN, -32,-62,LA SEINE 
2236 DATA LE HAVRE,-54,-6,LA SEINE 
2246 DATA SAINT-DIZIER, 61,-91,LA MARNE 
2256 DATA CHALONS-SUR-MARNE, 44, -BÈ, LA MA 
RNE 
2246 DATA SOISSONS, 22, -62, L'AISNE 
2276 DATA COMPIEGNE, 8, -60, L'OISE 
2286 DATA CHARTRES, -22, -98,L'EURE 
2996 DATA LE PUY,43,-228,LA LOIRE 
2306 DATA ROANNE,45,-186,LA LOIRE 
2316 DATA NEVERS, 20,-154,LA LOIRE 
2226 DATA ORLEANS, -14,-119,LA LOIRE 
2236 DATA BLOIS,-26,-130,LA LOIRE 
2349 DATA TOURS, -45,-136,LA LOIRE 
2350 DATA NANTES, -96,-142, LA LOIRE 
2349 DATA SAINT-NAZAIRE, -115,-136,LA LOI 
RE 
2376 DATA VICHY,28,-184, L'ALLIER 
2386 DATA MOULINS, 23,-166, L'ALLIER 
2396 DATA MONTLUCON, 7,-176,LE CHER 
2406 DATA VIERZON,-5,-144,LE CHER 
2416 DATA CHATEAUROUX, -16, -158, L'INDRE 
2426 DATA LIMOGES, -26,-194,LA VIENNE 
2436 DATA CHATELLERAULT, -46,-158, LA VIEN 
NE 
2446 DATA AUBUSSON, -4,-188,LA CREUSE 
2454 DATA ALENCON, -56,-98,LA SARTHE 
2446 DATA LE MANS,-54,-116,LA SARTHE 
2476 DATA VENDOME, -37,-120,LE LOIR 
2480 DATA LAVAL, -77,-114,LA MAYENNE 
2496 DATA ANGERS, -73,-132,LA MAINE 
2506 DATA SAINT-GAUDENS, -49,-296, LA GARO 
NNE 
251 DATA TOULOUSE, -22, -276,LA GARONNE 
2520 DATA AGEN, -42,-254, LA GARONNE 
2530 DATA BORDEAUX, -72,-226,LA GARONNE 
2540 DATA FOIX,-16,-360, L'ARIEGE 
2550 DATA MILLAU, 22,-256,LE TARN 
256% DATA ALBI,2,-264,LE TARN 
257 DATA MONTAUBAN, -24,-262, LE TARN 
2586 DATA RODEZ, 19,-248, L'AVEYRON 
2590 DATA VILLEFRANCHE-DE-ROUERGUE, -4, -2 
56, L'AVEYRON 


2600 DATA MENDE, 28, -242,LE LOT 


2616 DATA CAHORS,-24,-244,LE LOT 

2620 DATA BERGERAC, -48,-227,LA DHRDOGNE 
263% DATA BRIVE-LA-GAILLARDE, -18, -22, LA 
CORREZE 

2644 DATA PERIGUEUX, -46,-213,L'ISLE 
2656 DATA LYON,69,-192,LE RHONE 

266% DATA VALENCE, 71,-225,LE RHONE 


2676 DATA AVIGNON, 79,-257,LE RHONE 
2684 DATA ARLES, 64,-26B,LE RHONE 
269% DATA CHALON-SUR-SAONE, 65,-152,LA SA 
ONE 
2706 DATA MACON, 65,-176,LA SAONE 
2714 DATA BESANCON, 98,-138,LE DOUBS 
2720 DATA GRENOBLE, 93, -212,L' ISERE 
3734 DATA BRIANCON, 112,-224,LA DURANCE 
2746 DATA STRASBOURG, i34,-82,LE RHIN 
275% DATA MULHOUSE, 122,-116,L'°ILL 
274% DATA COLMAR, 122,-196,L'ILL 
2776 DATA EFINAL,193,-184,LA MOSELLE 
2788 DATA METZ,94,-68,LA MOSELLE 
2794 DATA NANCY, 94,-82, LA MEURTHE 
2869 DATA VERDUN, 76,-66,LA MEUSE 
2814 DATA SEDAN, 66,-56,LA MEUSE 
2826 DATA CHARLEVILLE-MEZIERES, 54,-46,LA 
MEUSE 
2834 DATA AMIENS, -2,-44,LA SOMME 
2844 DATA CAEN, -66,-72,L'ORNE 
2854 DATA SAINT-LO,-84,-76,LA VIRE 
284% DATA DINAN, -112,-98,LA RANCE 
2874 DATA LORIENT,-146,-120,LE BLAVET 
2984 DATA RENNES,-142,-112,LA VILAINE 
289% DATA NIORT,-71,-172,LA SEVRE NIORTA 
ISE 
2964 DATA ANGOULEME, -58,-262,LA CHARENTE 
2916 DATA TARBES, -56,-298,L'ADOUR 
2926 DATA DAX,-86,-274,L 'ADOUR 
2916 DATA BAYONNE, -98, -284, L'ADOUR 
294% DATA LOURDES, -62,-296,LE GAVE DE PA 
(l 
2956 DATA PAU,-72,-288,LE GAVE DE FAU 
206% DATA PERFIGNAN, 18,-308,LE TET 
2976 DATA CARCASSONNE, 2, -292,L'AUDE 
2984 QATA NICE,132,-266,LE VAR 
2994 DATA bassin de LA SEINE, 324,396,2,5 
11,1,1à 
3000 DATA bassin de LA LOIRE, 324,536,2,L 
,12,28,11,31 
3919 DATA bassin de LA GARONNE, 326,696, 2 
,5,:7,48,32,46 
3624 DATA bassin du RHÔNE, 204,606,2,R,49 
01,47,95 
3039 DATA bassin du RHIN, 266,280,2,RH,62 
66,96, 64 
3444 DATA FLEUVES COTIERS,3 
3,36,65,86 
3054 BORDER 1:INE @,1:INÉ 1,24:INE 2,21: 
INE 3,11:PEN 1 
3066 MODE 1:A=2320:E=396:CF=1:EC=1: GOSUR 
4840 
3476 CR=3:FOR RI=1 TO 66:60SUB 468G:NEXT 
3684 CV=2:FO0R VI=1 T0 B4:GOSUB 5268: NEXT 
3496 GOSUE 5184: INE 1,24, 15: MODEO1:A$=" 
LA FRANCE": LOCATE 7,7: : DHAUT, &A$: LOCATE 
9,11:PRINT "et ses":A$="COURS d'EAU":LOC 
ATE 6,15: : DHAUT, @A$: MODE 11: GOSUE 5186:6 
OSUE 518%: INE 1,24 
. 3106 INE 6,22: INK 1,16:MODE 2:GO0SUB 454% 
: MODE2: A$="EONJOUR ":LOCATE 7,7: : DHAUT 
GAS: MODE 12 


20,375, 1,FC, 2 


3114 LOCATE 5,11:FRINT “Nous allons deco 
uvrir ensemble":LOCATE 1,13:FRINT "la FR 
ANCE et ses COURS d'EAU, fleuves et":LÜCA 
TE 1,15:PRINT "rivieres,ainsi que les VI 
LLES arrosees.":LOCATE 5,17:FRINT “J'esp 
ere que vous aurez plaisir a° 
3124 LOCATE 1,19:FRINT “jouer et etudier 
avec moi."::MODEZZ:LOCATE 4,23:PRINT “À 
pres chaque BIF sonore, appuyez sur une t 
ouche pour continuer."::MODEi2:GOSUE 5û3 
+: :MODE22 
3136 INK 6,14:INE 1,7: MODE 2: MODE ÏZ:LOC 
ATE 5,5:PRINT "Tout d'abord,quel est vot 
re NOM *": (MODEZ22:LOCATE 18,7: PRINT "{ E 
crivez votre NOM,puis appuyez sur ENTER 
j" 
3144 MODEWZ: LOCATE 5,14: INPUT “*,NOM#: 
F LENCNOMS):14 THEN NOM$=LEFTS (NOMS, 14} 
3156 :MODE22 
F1é4 MODE 1: BORDER 23:INE GG: INE 1,241 
NE 2,21:INE 3,11: PEN 2:A=326:B=39@:CF=Î: 
EC=1:GOSUB 4844 
3176 :MODEGL:LOCATE 5,5:PRINT nom$: MODE 
1i:LOCATE 5,16:FRINT "Vous pouvez :“:LOC 
ATE 2,13:PRINT "1 - etudier les cours d' 
eau":LOCATE 2,15:FPRINT "2 - etudier les 
villes":LOCATE 2,17:PRINT “3 - reconstit 
uer la FRANCE" 
3186 LOCATE 2,19:FRINT “4 - jouer avec | 
es cours d'eau":LOCATE 2,21:PRINT ‘5 - j 
ouer avec les villes":LOCATE 2,23: PRINT 
"à - jouer avec villes et cours d'eau"il 
OCATE 2,25:PRINT "7 - fin du programme": 
nc=7:G0SUE 4946 
3198 ON c GOTO 3 
4136,4630 
3266 BORDER 11:FEN 1:G0SUB 5464:G0SUR 56 
94 
3216 CLG:A=326:B=390:EC=1: GOSUB 4844: LOC 
ATE#1, (46-LEN(ES$ (BE) ))/2,1:PRINT#1,B5$ ( 
BE) 
3226 CR=3:FOR RI=DEBR(EE) TO FINR (BE) :60 
SUE 4684:NEXT:GOSUE 5189:G0SUE 5186 
3236 CLG:A=EX (BE) : B=BY (BE) : EC=EC (BE) : 605 
UE 4849:LOCATE#1, (49-LEN(ES$ (BB) )}/2,1:P 
RINT#1,H5$ (BE) 
3244 FOR RI=DEBR(BE) TO FINR(BB): BOSUE J 
26: GOSUE 5180:NEXT:G60SUE 5934 
3256 CLG:LOCATE 5,5:PRINT "Vous pouvez m 
aintenant placer le":LOCATE 2,7:FRINT 
ours d'eau de votre choix.Four cela,":L0 
CATE 2,9:PRINT "ecrivez le NOM desire,pu 
is validez-le" 
326% LOCATE 14,12:PRINT "ex: ";RIS$(DEBR( 
BE))3;" + (ENTER) “:LOCATE 2,16:PRINT "Si 
vous ne savez plus un nom,inscrivez":LÜC 
TE 2,18:PFRINT "AIDE.Four continuer ile p 
rogramme":LOCATE 3,26:PRINT "ecrivez SUI 
TE. ":60SUB 5934 
3276 CLG:G60SUB 4846 
3284 CLS#1:CLS#2:LOCATE#1,5, 1: INPUT#1,"V 
otre choix * ",RC$ 


200,3430,4346,3676, 3966, 


3294 IF RC$="SUITE" THEN 3266 

3364 IF RC$="AIDE" THEN FOR I=DERRIBE) T 
0 FINR(EB) :CLS#1:LOCATE#I, (46-LEN(RIS (I) 
13/2,1:PRINT#IRIS(L):GOSUE 5630: LOCATE 





20,25: PRINT late de NEXT: pere 3286 








; FOR I=i TG sé 

3350 IF'RCS=RIS(I) THEN 
3364 NEXT 

3376 FOR I=i TO Bë 

3504 IF RCS=VIS(I) THEN 3426 

3396 NEXT 

3466 GOTO 1284 

3416 CLS#1:LOCATE (28-LEN(RCS +) /2, 44: PEN 
2:FRINT "ATTENTION ! "sRCS:LOCATE 3,25: 

FRINT “ne fait pas partie du bassin etud 
ie":GOSUE 5186:G0SUR 5184: G0SUB 5186: LOC 

ATE 1,25:FRINT STRINGS (28, CHRS (1283 à : GOT . 
0 328% 

3424 CLSHI:LOCATE (ZB-LEN(RCS) à /2, 34: PEN 
2:PRINT “ATTENTION ! “:ROS:LOCATE 3,25: 

FRINT “est une VILLE ét non un COURS d'E 
AU":GOSUR 5iB4:G60SÛB 5186: GO0SÛE 5186: LOC 

ATE 1,25:FRINT STRINGS (38, CHR$ (128) ) : GOT 
0 3284 

3436 BORDER 11: 
où 

3440 CLG:A=320:B=396:EC=1:GOSUR 4846: LOC 
ATE#1, (46-LEN(BS# (BE) }à/2, 1: FRINT#1,B5$( 

BB) 

3456 CR=3: FOR RI=DEBR(BE) TO FINR(EE) : 60 

SUB 4680: NEXT:GOSUE 518%: CV=2:FOR VI=DEB 
V(BB) TO FINV(EE):GOSUE 5266: NEXT: GOSUR 

9189: GO0SUB 5186 

3464 CLG:A=EX (BE) : E=EY (BE) : EC<EC (BB) : 605 

UB 4846: LOCATE#]), (44-LEN(ES$(BE)j)/2,1:P 
RINT#1,E5$ (ER) 

3470 FOR RI=DEER(EB) TO FINR(BB):GOSUE 4 
b8ÿ: NEXT 

3486 FOR VI=DEBV(BE: TO FINV(BE):GOSUE 5 
340:GOSUE 5276:G0SUE S184:NEXT: GOSUE 583 

à 

3494 CLG:LOCATE 5,5:FRINT "Vous pouvez m 

aintenant placer la":LOCATE 2,7:PRINT “v 
iile de votre choix.Four cela, ":LOCATE 4 
 7:PRINT ‘ecrivez ie NÜM desire,puis val 
idez-ie". 

2504 LOCATE 14,12:PRINT ex: “VIS (DEEVI 
BEj:3" + (ENTER) “I LOCATE 2,6: FRINT ‘Si 
vous ne savez plus un nom,inscrivez": LOC 
ATE 2,18:FRINT "AIÏDE.Four continuer le p 
rogramme":LOCATE 2,28:FRINT “ecrivez Sil 
TE. ":GOSUE 5836 

3514 CLG:60SUE 4844: CR=3:F OR RISDEBR (BE: 
TO FINR(EE: :GOSUE 468%: NEXT: GOSUE 5184 

3526 CLS#1:CLS#2: LOCATE#I, 2,1: INPUT#I "VU 
otre choix ? “,RCS 

3530 IF RCS="SUITE" THEN 3458 
3546 IF RCS="AIDE" THEN FOR I<DEBVIER: T 


9 


3416 


FEN 1:50SUB 5664:GDSUB 56 









D FINV(BE) :CLS#1:LOCATE#I, (46-LEN(VIS (1) 
Di/2,1:PRINT#I, VIS CI): GOGUE Sé3ä:LOCATE 
24,25: PRINT CHRS (128: :NEXT:GOTO 3526 
3556 FOR I=DEBV(EE) TO FINVIER) 
got IF RCS=VIS(I) THEN VI=I:G0GUE 5346: 
BOSUE 5274:G6010 2524 
2374 NEXT 
3584 FOR 1=1 T0 88 
2596 IF RCS=VIS(Ii THEN 3656 
366 NEXT 
3616 FOR I=i TO 64 
3624 IF RCS=RISII) THEN Zéëà 
363% NEXT 
1644 GOTO 1524 
3654 CLS#1:LOCATE (28-LEN(RCS) ) 2,24: FEN 
2: PRINT ATTENTION ! "sRC#:LOCATE 3,25: 
FRINT ‘ne fait pas partie du bassin etud 
ie":G0SUB 51B8:G0SUE 5184: G0SUE 3186@:L0C 
TE 1,25:PRINT STRINGS (38, CHR$ (128) à : GOT 
0 3524 
3660 CLS#I:LOCATE (28-LEN(RC#) ) /2, 24: PEN 
2:FRINT ATTENTION ! ":RO$:LOCATE 3,25: 
PRINT ‘est un COURS d'EAU et non une VIL 
LE':GOSUE 51686:G0SUB S186:GOSUE 5184: LOC 
ATE 1,25:PRINT STRINGSC3E, CHR$ (126) ) : GÛT 
0 352 
3674 MODE 1:LOCATE SA PAPTNE "Four quitt 
er ce programme en cours, ‘:LOCATE Z,16:P 
INT “appuyez sur S apres un BIF sonore, 
"sLOCATE S5,13:FRINT "Four continuer, appu 
vez sur une autre":LOCATE 2,15:PRINT "to 
uche. “:GOSUE 5436:GO0SÛE 5396: JJ=66: GOSUE 
5466 
368% MODE 1:EBORDER 17:4=dé6û: B=3GG:CF=SE 
C=1:G0SUB 4946 


3694 WINDDH#2, 1,21, ar WINDOW#3,1,17,1 


419: PAFERKZ, 2: FAFERKS, 

3746 CR=3: FÜR RI=1 10 Le 466: NEXT 

3714 GOSUE 5476 

‘3724 IF DC=67 THEN CLS#2:LOCATE#Z,3,6:PR 

INT#2, "Vous avez termine":G0SUB 5638: 60T 

0 3546 

3730 CR=1:RI=NU:GOSUB 4684 

3746 FOR JO=1 TO NJ 

3756 CLS#2:LOCATE#2, 3,2: PEN#2,0:PRINTHE, 

| JO$ (JO) : LOCATE#Z, 3, 4: PEN#2, 1: PRINT#Z, "Mo 

n NOM *":LOCATE#2, 1,8:PEN#2,3: INPUT#2,"" 

,RD$ (JO) 

3764 IF DC=67 THEN CLS#2:LOCATE#2,3,6:PR 

INT#2, "Vous avez termine":G60SUB 563%: GOT 

À 3840 

3736 IF LEN(RDS(J0)):26 THEN 3756 

3784 NEXT 

3796 FOR J0=1 TO NJ 

3806 IF RD$(JO)=RIS(NU) THEN FT(JOI=PTU] 

gi+14 

3814 NEXT 

1824 CLS#2:LOCATERE, 1, 1: FEN#2, S:PRINT#2, 

STRINGS (20, “#") : MODEG1 : LOCATE#?, 3, 3: PEN 

ia PRINT#2, "REFONSE": ! MODE 11:LOCATE#2, 
3,3: FEN#2, 1: FRINT#2,RIS (NU) : LOCATE#?, 3,4 
:PENR2,2: FRINT#?, STRINGS (LEN(RIS (NU) à, CH 
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$(218)) 
3836 PRINT#Z:PEN#2,3:FÜR JO=1 TO NJ:FRIN 
T#2,10$ (JO) : "+: "RDS (JD) :NEXT 
2844 MODES 1: PEN#S, L'LOCATE#S, 2, 2: PRINT# 
3, "SCORES": MODE 11 
3856 FOR JO=1 TO NJ 
1866 PENHS, 2: LOCATE#S, 2, 2+J042:PRINTH3, 
04 (J0) :LOCATE#S, 13, 2+J0#2: be) 
3874 NEXT 
3864 GOSUE 5636:CLS#3:1F DC=67 THEN 3168 
2894 CR=3:G60SUE 4686:G0T0 7716 
3906 MODE 1:LOCATE S,8:PRINT "Pour quitt 
er ce programme en cours, ":LOCATE 2,18:P 
RINT “appuyez sur S apres un BIF sonore. 
“ILOCATE 5,13:FRINT ‘Four continuer, appu 
vez sur une autre":LOCAÂTE 2,15:PRINT ‘to 
uche.":GOSUB 54236:GO0SUB 5396: JJ=66:G60SUE 
5468 
3916 MODE 1:BORDER 17:4=492:E=308:CF=RE 
C=1:GOSUB 4844 
3920 WINDOW#2,1,24,11,25:WINDOW#3,1,17,1 
14: FAPER#2, 2 
39126 CR=3:FOR RI=1 TO 66:GOSUB 468%: NEXT 
1CV=3: FOR VI=i TO B&:GOSUR S266:NEXT 
3944 GOSUB 5474 
3954 IF DC=81 THEN CLS#2:LOCATE#Z,5,6:FR 
INT#2, "Vous avez termine":GO0SUE 54236: GOT 
0 4476 
3968 CV=1:VI=NU: GOGUE 526û 
3974 FOR JO=1 TO NJ 
3986 CLS#2: :MODEG 1: PEN#2, 3: LOCATE#2,2,2: 
PRINT#2, J0$ (J0} : IMODE 1 1: LOCATE#Z, 3,5: PEN 
#2,1:PRINT#2, "Mon NOM *':LOCATE#2, 1,8:PE 
N#2,3: INPUT#3, °",RVS (JO) 
3994 IF DC=8i THEN CLS#2:LOCATE#2,5,6:FR 
INT#2, "Vous avez termine":GO0SUB 5636: GÛT 
Ü 4474 
4666 IF LEN(RVS(JO))>25 THEN 3986 
4616 NEXT 
4926 FOR J0=1 TO NJ 
4910 IF RV#(JO)=VIS (NU) THEN FTCJO)=PTUJ 
0)+i6 
4646 NEXT 
4956 CLS#2:LOCATE#?, 1, 1: PRINTHE, STRINGS ( 
20,4"): :MODEG 1: PEN#2, 0: LOCATE#2, 2,3: PRI 
NT#2, "REPONSE ": : MODE 1 1: LOCATE#2, 5, 5: PEN# 
2, 1:PRINT#2, VIS (NU) : LOCATE#Z, 3, 6: PEN#2,3 
:PRINT#2, STRINGS (LEN (VIS (NU) ) ,CHR$ (218) } 
4069 PRINT#2:FO0R JO=1 TO NJ:PRINT#2,J0$( 
JO) ; "5 "RVS (JO) :NEXT 
4076 PAPERK3, 2:CLS#3: :MODEG 1: LOCATE#Z,2, 
2:PENKS, L: PRINT#3, "GCORES": MODE 11 
4086 FOR JO=1 T0 NJ 
4996 LOCATE#S, 2, 2+J042: PEN#S, 2: PRINT#S,J 
0$(J0) :LOCATE#Z, 13, 2+J0#2: FRINT#3,PT (JO) 
4196 NEXT 
4119 GOSUE 5636: PAPERKS G:CLO#3: IF DC=Gi 
THEN 3166 
4126 CV=3:G0SUE 5264:6070 1946 
4136 MODE 1:LOCATE 5,8:PRINT "Four quitt 
er ce programme en cours, “:LOCATE 2,19:P 
RINT "appuyez sur S apres un BIF soncre, 


“eLOCATE 5,13:PRINT “Four continuer, appu 
vez sur une autre":LOCATE 2,15:PRINT "to 

uche. ":G0SUB 5636:60SUB 5394: JJ=80: GOSUB 
3468 

4148 WINDOW#2,1,48,11,25:WINDOW#3,1,15,1 
419: HINDOW#4, 15,46, 1,16: PAFERK2, À 

4156 GOSUE 5474 

4168 IF DC=81 THEN CLS:LOCATE#Z?, 12,4:PRI 

NT#2, "Vous avez termine":G0SUE 5436:G0T0 
4286 

4174 CLS:PEN#4,2:LOCATE#A, 3 2: PRINTHA, 
ur quel cours d'eau":LOCATE#4,9, 4: PRINT# 

4,"se situe":PRINT#4,CHR$ (24) :LOCATE#A, ( 
27-LEN (VIS (NU) }3/2, 7: PRINT#4, VIS$ (NU) : PRI 

NT#4,CHR$ (24) 

4180 FOR JO=1 TO NJ 

4198 CLS#2: MODE! : LOCATE#2,3, 2: PENRE, Gi 
PRINT#2, J0$ (J0} : MODE 1 1: FEN#2, 3: LOCATE#2 
,8,4:FRINT#2, “Votre reponse“:LOCATE#:,8, 
8: INFUTH?, ne RV& (JO) 

4206 IF DC-81 THEN CLS#2: LOCATEN?, 3,6: FR 
INT#2, "Vous avez termine":G0SUE 5436:G0T 

À 4284 

4216 IF LENCRUS (JO) } 325 
4226 NEXT 

4236 FOR JO=1 TO NJ 
4244 IF RV$(JO)=RIVS (NU) THEN PTCJO)=PT( 


THEN 4194 


. JD)+14 


425% NEXT 
4264 CLS#2:LOCATE#Z, 1,1: PEN#2, Z:PRINTH#Z, 
STRINGS (44, "#3: :MODEG1 : LOCATE#2, 8,3: PEN 
#2,0:PRINT#2, "REPONSE": : MODE 1 1: LOCATE#Z, 
(4G-LENRIVS (NU) à) /2, 6: PEN#2, 3: PRINT#2,R 
1V$ (NU) : LOCATE#Z, (48-LEN (CRIVS (NU) à) /2,7: 
PRINT#2, STRINGS (LEN(RIVS (NU) } ,CHR$ (218) 
4276 PRINTHZ:PEN#Z, G:FOR JO=1 TO NJ:FRIN 
T#2,90$(J0);" + "RVS (JO) :PRINTH2:NEXT 
4286 PFAFER#S, 2:CLS#3: MODE 1: LOCATERS,2, 
2: PEN#5, 0: PRINT#3, "SCORES": :MODE 11 
4290 FOR J0=1 TO NJ 
4200 PEN#S, 3: LOCATE#S, 1,2+J0#2:PRINTH#3, 
0$ (J0) :LOCATE#S, 11, 2+J0#2:PRINTH#3, PT (JO) 
4314 NEXT 
4324 GOSUR 50230:CLS#3:1F DC=81 THEN 316ÿ 
4336 GOTO 4156 : 
4346 MODE 1: :MODEGI:LOCATE 7,1:PRINT NOM 
$: :MODE11:LOCATE 5,4:PRINT "Vous allez m 
aintenant reconstituer ":LOCATE 1,6:PRINT 
“la carte de la FRANCE.A vous de choisi 
r'':LOCATE 1,8:PRINT "les VILLES et les È 
OURS d'EAU, moi, je les" 
4356 LOCATE 1,19:PRINT "dessine a leur p 
lace,":LOCATE 3,12:PRINT "Vous avez 66 c 
ours d'eau et 88 villes':LOCATE i,14:PRI 
NT “a placer. ":LOCATE 3,16:PRINT "Je ne 
vous aiderais pas,mais je vous" | 
436à LOCATE 1,18:PRINT “indiquerais les 
oublis a la fin.":LOCATE 1,26:PRINT ‘ecr 
ivez FIN si vous ne savez plus":LOCATE 1 
,22:PRINT 'ecrivez SUITE pour continuer. 
“:GOSUB 5030 


4276 CLG: BORDER 11:INE 3,17: 4400: B=305: 


EC=1:CF=3:G60SUE 4844 
386 WINDOW#1,1,40,24,24 
4399 FOR I=1 TO 66: BA$(L)=RIS(I):NEXT:F0 
R I=1 TD BG: VAS(I)=VIS EI): NEXT 
4406 FR=0:PV=G:LOCATE 5,12:PEN 1: PRINT " 
Vous avez place:":LOCATE 1,15:PEN Z:FRIN 
T “COURS d'EAU :":LOCATE 1,18:FEN 2:FRIN 
T VILLES :":LOCATE 15,15: PEN Z:PRINT FR 
:LOCATE 15,1B:PEN 2:PRINT FV 
4416 IF PR=66 AND FV=E6 THEN CLS#1i:LOCAT 
E#1,2,1:PEN Z:PRINT#I, "Vous avez termine 
BRAVO": GOSUB 5603%:G0T0 3164 ELSE CLS#1 
!LOCATE 26,25: PRINT CHR$ (128) : LOCATE#1, 2 
,L'PAPER#1, 1: PEN#1,6: INFUT#1, "Votre choi 
x 1", RC 
4426 IF RC$="SUITE" THEN 316û 
4436 IF RC$="FIN" THEN 4510 
4446 FOR RI=1 TO éë 
4456 IF RCS=RIS(RI) AND RC$=BAS$(RI) THEN 
BAS (RI)="":CR=1: GOSUE 4686: PR=PR+1 : LOCA 
TE 15,19:PEN 3:FRINT FR:GOSUB 5186: GOSUE 
J186:CLS#1:CR=3:GOSUE 4686: G0TO 4déÿ EL 
SE IF ROS=RIS(RII THEN CLS#1:PRINTHI," 
Ce COURS d'EAU est deja place“:GOSUE 
5638 
446 NEXT 
4476 FOR VI=1 TO 86 
4486 IF RC$=VISIVII AND RC$=VAS$ (VI) THEN 
VAS (VI)="":CV=1: GOSUB 5264: PV=PV+1 :LOCA 
TE 15,18:FEN Z:PRINT FV:GOSUR 5188: GOSUE 
3180:CLS#1:CV=3:GOSUB 5269:G0T0 4496 EL 
SE IF RCS=VIS(VI) THEN CLS#i:FRINT#1," 
Cette VILLE est deja piacee":G0SUB 56 
36 
4496 NEXT 
4566 GOTO 4414 
4516 CLS#1:LOCATE 9,12:PEN 1:FRINT ‘Il r 
este a placer: ":LOCATE 15,19:FEN 3:PRINT 
bb-PR:LOCATE 15,1B:PEN 2:PRINT 84-PV:60 
SUB 5186 
4524 LOCATE 15,22:FEN 3:PRINT "COURS d'E 
AU" 
4536 FOR RI=1 TO 86 
4546 IF BAS(RIIE:"" THEN FRINT#I,CHR# (36 
}+CHR$ (24) :LOCATE#1, (46-LEN(BAS$ (RIT )}/2, 
1: PRINT#1, BAS CRI) : PRINT#1,CHRS (56) +CHR# 
24):CR=1:G0SUE 4686: FR=PR+1:LOCATE 15,15 
PRINT 66-FR:GOSUR 5436:CLS#1:LOCATE 24, 
29:PRINT CHR$ (128) :CR=3:GOSUB 4686: GOSUE 
5180 
4554 IF INÉEY(64)=6 THEN 3166 
456% NEXT 
4576 LOCATE 15,22:FEN 2:PRINT " 
4586 FOR VI=i 10 (a 
4596 IF VAS(VI)£5"" THEN PRINT#1,CHRS# (36 
)+CHR$ (24) : LOCATEH, (4ÿ-LEN (VAS (VI) ))/2, 
1:PRINT#I, VAS VI}: FRINTHI, CHRS (26) +CHR$ ( 
24):CV=1:G0SUB 5266:FV=PV+1:LOCATE 15,18 
:PRINT 80-PV:GOSUEB 5426:CLS#1:LOCATE 24, 
25:PRINT CHR$ (128) :CV=3:G0SUB 5269: GOSUE 
3186 


VILLES 


4666 IF INÉEY(66)=0 THEN 7168 

461ÿ NEXT 

4626 GOTO 3166 

4630 MODE 0:A=326:E=394:EC=1:CF=1 
4846 

4844 PEN 13:LOCATE 9,6:PRINT NOM 

4654 PEN 14:LOCATE 7,11:FRINT "A BIENTOT 

4664 GOTO 466à 

4874 END 

4684 ON RI GOSUB 184,219,236,256,27, 296 
,319,330,356, 370,396,410,4464, 466,404, 566 
,220,549,566, 580, 600,629,464û, b6D, 8B0, 706 
720,746, 766, 766,800, 624,846, 664, 880, 706 
,920,940,960,984, 1606, 1020, 1446, 1510, 196 

0,1880, 1166 

469% IF RI:47 THEN 476b ELSE 4726 

4706 RI2=R1-47 

4719 ON RI2 GOSUB 1126,1146,1179,1194,12 
14,1230,1254,1270,1296,12314,1330,1350, 15 

76,1396,1416,1426, 1456, 1470, 1498 

4724 RETURN 

4736 RESTORE 1570 

474% FOR I=i TO 66 

4756 READ RIS,RX,RY 

4760 RISCI)=RISIRX (LI =RALRY (TI =RY 

4774 NEXT 

4780 RESTORE 2196 

4796 FOR 1=1 TO 86 

4804 REAL VIS, VX, VY.RIVS 

4810 VISCII=VIS: VX CTI =VXs VY CT) =VYIRIVS(T 
1=RIV# 

4824 NEXT 

4838 RETURN 

4844 RESTORE 56:PLOT A,B 

4850 READ X,Y 

4869 IF x=-106 THEN RETURN 

4876 DRAMR X*EC, Y#EC, CF 

408à GOTO 485% 

4896 MOVE À,B:MOVER RXIRII#EC,RY(RII4EC 
4966 READ X,Y 

4916 IF X=-164 THEN RETURN 

4926 DRAWR X#EC, Y#EC, CR 

4934 GOTO 4906 

494ÿ C$=INÉEYS$: IF C$="" THEN 4946 

4956 IF AGC(C#)<49 OR ASC(C$) :46+NC THEN 
4946 

4964 C=VALC#: : RETURN 

4976 RESTORE 2990 

4984 FOR I=1 TO à 

4996 READ BS$,EX,EV,EC,B$,DEER,FINR,DERV 
,FINV 

9606 BS$(I)=ES$:BX(I)=BX:BY(T)=BY:EC(II= 
EC:E$ (1) =B$: DEBR(I)=DEBR:FINR CI) =F INR: DE 
BU(I)=DEBV:FINV(T)=FINV 

9416 NEXT 

9026 RETURN 

2036 PRINT CHR$ (36): PRINT CHR$ (7) : LOCATE 
20,25:PRINT CHR$(241):CALL &BBM6 

9946 IF INÉEY(é4)=6 THEN 3168 

9956 RETURN 
9966 MODE 1: 


9: 60SUE 


iMODEG]:LOCATE 5,5:PRINT NOM 


$: :MODE11:LOCATE S,16:PRINT “Vous choisi 
rez le bassin que vous":LOCATE i,12:PRIN 
T "voulez etudier en appuyant sur la bar 
re":LOCATE 1,14: PRINT "d'espace,puis vou 
s validerez votre choi:" 
5979 LOCATE 1,16:FRINT "par ENTER‘: GOSUE 
56:60 
9686 RETURN 
5696 MODE 1:HINDOW#1, 1,46,24,24:FEN#1 ,ü: 
FAPER#1, 1: BE=G: BS$ (7) ="SUITE" 
5106 BE=BB+1:IF EB:7 THEN BE=BB-7 
5116 CLS#I:LOCATE#1, (-LENCESS CEE: 1/2, 
L:FRINT#1,B5$ (BE) 
9126 CALL &HEdé 
5134 IF INEEY(47)=ù THEN 5166 
5146 IF INÉEY(185=à THEN 516ÿ 
5156 GÜTO 5126 
Jiéé IF EB=7 THEN 3166 
5179 RETURN 
9186 FOR T=1 TO 1546:NEXT 
5199 RETURN 
9206 GOSUE 5236 
9216 FOR CR=2 TO 6:G0SUB 46B&:FOR I=i TO 
909: NEXT:NEXT:CLS#2 
9224 RETURN 
5236 WINDOWHZ, 1,40,1,1:FAFER#2, 3: PEN#3, | 
3249 CLS#2:LOCATE#?, (49- LEN(RIS$(RT)))/2, 
1: PRINT#2,R1$ (RIT) 
9296 RETURN 
5266 ORIGIN A+VX (VI) #EC, E+VY (VII #EC 
5270 FOR XX=-24EC TO 24#EC 
5280 FOR YY=-2#EC TO 24EC 
9299 FLOT XX, YY,CV 
5394 NEXT 
9319 NEXT 
5326 ORIGIN à,ù 
334 RETURN 
5346 WINDOWKZ, 1,4ù,1,1:FPAFER#E, 3: FEN#2, 1 
5350 CLS#2:LOCATE#Z, (AG-LEN (VIS (VE) ))/2, 
Li PRINTH#2, VIS (VI: 
336% RETURN 
9276 FOR CV=1 TO 16:G0SUE 
O BU: NEXT:NEXT : CLS#2 


déetiFOR I=i T 


3386 RETURN 


3394 MODE 1:LOCATE 5,7:FRINT ‘Nombre de 
joueurs ? (de 1 à 3 )":NC=3:GOEUR 4946 
9466 IF C=i THEN NJ=1:PT(1)=0: JO$ (1) =NOÛM 
$: RETURN 
3416 NJ=C:FOR JO=i TO NJ:FT(JDi=8 
5424 LOCATE 5,9+J0#2:PRINT NOM du joueu 
r “sJOs: INPUT °*,9J0# Jo) 
5436 IF LEN(JO$ (JO) 1=@ THEN GOT 5424 
0444 IF LEN(JO#(J0i):16 THEN JO$ (JO =LEF 
T$iJ0$(J0), 14) 
5450 NEXT:RETURN 
5464 RANDOMIZE TIME:FÜR J=1 TG JHDE(Ji= 
JENEXT : DC=6: RETURN 
5474 DC=DC+1:1F DC:JI THEN RETURN 
5484 NN=INT IRND#JJi +1 
5494 IF DE(NNI2:8 THEN DECNNI=û: MUENNIRE 
TURN ELSE NNENN+1:IF NN:JJ THEN NN=NN-TS 
3506 GOTO 5496 
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INATEUR 









Gérard TANNIERE 





GRAPHE de L’ALCOOLEMIE 


PAR 


nonsieur 


votre alconlemie maximun est de 1.613 


Alors que notre pays annonce 

11 000 tués sur les routes en 1986 
et que le doublement des peines, en 
cas d'accident dû à l'alcool, vient 
d'être décidé en Conseil des Minis- 
tres, il est intéressant d'utiliser l'in- 
transigeance de l'informatique pour 
aider les bons vivants que nous 
sommes à boire en connaissance de 
cause. 


BAO doit permettre d'évaluer, à la fin : 


du repas, le taux d'alcoolémie. En fonc- 
tion de la nature et de l'heure d’absorp- 
tion, l'ordinateur donnera, non seule- 
ment le pourcentage maximum en 
grammes par litre, mais aussi un mes- 
sage indiquant les effets de l'alcool 
ingurgité et, le cas échéant, les heures 
entre lesquelles la conduite est forte- 
ment déconseillée, sous peine de se 
voir verbaliser selon les dernières sanc- 
tions réglementaires. 


Attention : l’auteur décline toute respon- 
sabilité en cas de brouille avec vos amis. 
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une touche SUP. 


IUT IS SSSESES ESS SE ISESESS TS ESS SES. 
26 ‘+ Boisson Assistee par Ordinateur * 


30 ‘#44 par G. TANNIERE LEE 
40 ‘#4 le 42-63-87 #4 
36 ‘### pour tous les amis qui  +*## 
dE ‘#44 viennent a la maison #44 


HOME TE TES ESS ES ESS S ESS ES ESS ES ESS SES 
86 MODE 6:BORDER 9: INK 1,11: INK 2,26: INK 
3,6:INE 4,18: INK 5,9:FAPER 4:CLS 

96 LOCATE 3,7:PEN 1:PRINT "B's:PEN 5:PRI 
NT “oisson":LOCATE 6,13:PEN 2:PRINT "A"; 
PEN S:PRINT "ssistee":LOCATE 14,16: PRIN 
T'par":LOCATE 9,19:FEN 3:FRINT "O":;:PEN 

9tFRINT "rdinateur":GOSUE 1449 

166 RESTORE 16016:ENV 1,2,2,5,1,9,260:F0R 
x=1 TO 77:READ c,h,d,v:SOUND c,h,d*0.9, 
V,L:NEXT 

119 CLS:LOCATE 9,6:PRINT "par":LOCATE 8, 
{2:PRINT "gerard":LOCATE 7,18:PRINT "TAN 

NIERE" 

126 ph$="ATTENTION. ce programme n'a auc 

une valeur juridique.":TAG:FOR *x=640 TD 
-1904 STEP-26:FLOT x,36,2:PRINT ph$;:NEX 

T:TAGOFF:FOR x=1 TO 3046: NEXT: MODE 1:RES 






TORE 1970:FOR x=2 TO 20 STEP 2:READ p#$il 

OCATE 2,x:PRINT p#:NEXT 

136 LOCATE 25,24:PRINT “une touche SVP." 
stMHILE K$< "Us kS=INKEYS: HEND:HHILE k$=" 
“2: k$=INKEYS$: WEND | 
149 ‘### entree des donnees *## 

150 MODE 1:PAPER 2:PEN 1:CLS: BORDER 6: WI 

NDOW#1,2,18,2,19:PAPER#1, 1: PEN#1, 2: CLS#1 
:WINDOW#2,2, 18, 12,24: PAPER#2, 1: PEN#2,2:C 

LS#2: WINDOW#3, 20,39,2,24: PAPERKIS, 1: PEN#3 
,2:CLS#3 

168 DIM alc (200) ,alt (290), fine (296) ,m(29 
0) ,mal (200) : LOCATE#1, 2,2: INPUT#1, "NOM: ", 

non$ 

176 LOCATE#1,3,4: INPUT#I,"GEXE :",sex$:s 

ex$=UPPERS (sex$):1F sex$<i"F" AND sex$i} 
"M" THEN GOTO 170 ELSE IF sex$="F" THEN 

coef=0.6 ELSE coef=à.7 

186 LOCATE#1,3,6: INFUT#1,"FOIDS:",poidé: 

poids=VAL (poid$):LOCATE#1,9+LEN(poid#),b 
:PRINT#1," kg" 

198 LOCATE#1,2,8: INPUT#I, "HEURE: ",hd:LO 
CATE#1,8,8:PRINT#1 USING "##. ##"s hd; :PRI 
NT#i,"h" 

299 LOCATE#S, 5,2: PRINT#3, "CONSOMMATIONS" 
tRESTORE 1990:F0R x=1 TO 16:READ r$:LOCA 
TER#3,2,4+x:PRINT#3,rÉ:NEXT x 

219 ‘x##+ ENTREE DES CONSOMMATIONS x### 
220 FOR x=0 TO S:fine(x)=1:NEXT:x=2:h=5: 

hg=hd:DEF FNalcool=alt(h-1)+alt(h-2)+alt 
{h-3)+alt(h-4)+alc(h-1)+(4,94+(fine(h-5) 

=)) 

230 WHILE en$<>"FIN" 

249 LOCATE#2,2,x:PRINT#2,USING "##.##"sh 
g:LOCATE#Z, 16, x: INPUT#2,en$:en$=UPPERS$ (e 

n$) :en=VAL (en$) 

254 ON en+i GOSUB 1139,1146,1159,1166, 11 

70,1186,1190,1206,1219,12209,1239, 1244, 12 
96, 1260, 1276, 1280, 1290 

260 x=x+2:IF «513 THEN x=12:PRINT#2,STRI 
NG$ (2, CHR$ (10) ) 

278 malc=MAX (alc(h)):hg=hg+0. 15:h=h+i: IF 
hg-INT (hg)}>9,59 THEN hg=INT (hg)+i 

28 IF hg}24 THEN hg=0. 15 

298 WEND: fine(h-1}=à 

306 h=4:WHILE alc(h}>=bih=h+iialt(h}=(mt 

h)/(4xpoids+coef)):alc(h)=FNalcool:mal=a 
Ic{h):IF mal>malc THEN malc=mal 

316 IF malïmalc THEN malc=mal 

326 WEND 

350 ‘*#+ sortie du graphique ### 

344 MODE 1:PAPER 2:CLS:LOCATE 19,2: PRINT 
"GRAFHE de L'ALCOOLEMIE":cy=198: cx=é08 

h: ORIGIN 39,186: DRA4 606,9, 1:PLOT à,-16, 
1:DRAW 0,266: PLOT 9,BG:DRAW 660,80:FOR y 

=ÿ TO 246 STEP 19: MOVE -6,y:DRAW 4, y:NEX 

T 

399 PRINT CHR$(23)+CHR$ (1) 3: TAG:FAPER 3: 

MOVE -30,266: PRINT "q/1"::MOVE 590,-4:FR 


INT "h"s;:MOVE -30,96:PRINT "0.8"; :TAGOFF 
:PRINT CHR$(23)+CHR$ (0) :h=6:hd=hd+0. 15 
360 i=0:PLOT 0,0: WHILE alc(h)>=0:PLOT (h 
-b)+#cx,alc(h-1}#100,6:DRAW (h-5)+cx,alc( 
h)#100:1F alc(h)>9.8 AND i=0 THEN hdc=hd 
tizi ELSE IF alc(h)<0.8 AND i=1 THEN hfc 
=hd: i=0 
370 IF hd-INT(hd)=8 AND cx>9 THEN PLOT ( 
h-5)#cx,0,1:DRAW (h-5)#cx,-12:PRINT CHR$ 
(23)+CHR$ (1) ; : TAG: PLOT 0,0,3:MOVE (h-5)# 
cx-32,-16:PRINT INT (hd) ;: TAGOFF:PRINT CH 
R$(23)+CHR$(0) ELSE PLOT (h-5)+cx,0,1:DR 
AW (h-5)+cx,-8 
380 IF hd-INT(hd)=@ AND cx<=9 AND (INT(h 
d)} MOD 4=0 THEN PLOT (h-5)#cx,0, 1: DRAM 
(h-5)#cx,-12:PRINT CHR$ (23) +CHR$ (1) ; : TAG 
:PLOT 9,0,3:MOVE (h-5)#cx-32,-16:PRINT I 
NT (hd) ;: TAGOFF: PRINT CHR$(23)+CHR$ (9) EL 
SE PLOT (h-5)#cx,0,1:DRAW (h-5)#cx,-8 
390 h=h+i:hd=hd+0.15:1IF (hd-INT (hd))>0.5 
9 THEN hd=INT(hd)+1 ELSE IF hd>24 THEN h 
d=0, 15 
490 WEND 
419 ‘##*# commentaires du graphe *### 
420 WINDOW#4,2,39,17,24:PAPER#4,0:PEN#4, 
2: CLS4#4 
430 LOCATE#4,19,2:1F sex$="F" THEN PRINT 
#4, "madame ";UPPER$ (nom$) ELSE PRINT#4," 
monsieur “;UPPERS$ (nom$) 
449 LOCATE#4,2,4:PRINT#4, "votre alcoolem 
ie maxiaun est de";USING "##t. #f#";:malc:G 
OSUB 1396: CLS#4 
450 IF malc{ô.3 THEN RESTORE 1319:READ p 
h$:PRINT#4,CHR$ (19) ;CHR$(10)ph$:GOSUB 13 
90 
460 IF malc>=0.3 AND malc<0.5 THEN RESTO 
RE 1320:READ ph$:PRINT#4,CHRS$ (10) ;ph$:60 
SUB 1390 
470 IF malc>=0.5 AND aalc<@.8 THEN RESTO 
RE 1330:READ ph$:PRINT#4,CHR$ (10) : ph$: 60 
SUB 1390 | 
480 IF malc}=0.8 AND aalc{1.5 THEN BORDE 
R 6:RESTORE 1340:READ ph$:PRINT#4,ph$:LO 
CATE#4,12,6:PEN#4,3:PRINTH#A4, USING "4Ht. #4 
“shdes:PRINT#4," H a "5 :PRINT#A, USING “# 
#.##"shfc; :PRINT#4," H":G0SUB 1390:CL5#4 
:READ phi$:PRINT#4,phi$:G60SUB 1398 
490 IF malc>=1.5 AND malc(3 THEN RESTORE 
1360:READ ph$:PRINT#4, CHR$ (10) ;ph$:LOCA 
TE#4, 12,5: PEN#4, 3: PRINTHA4,USING "#4. 4"; 
hdc;:PRINT#4," H à "5: PRINT#4, USING "#h. 
#Hhohfcs;:PRINT#4," H"':G0SUB 1390:CLS#4:R 
ESTORE 1350:READ ph1$:PRINT#4,ph1$:GOSUB 
1390 
900 IF malc>=3 AND salc<5 THEN BORDER 6: 
RESTORE 1370:READ ph$:PRINT#4,CHR$ (10) :p 
h$:LOCATE#4, 12,5: PEN#4, S:PRINT#4, USING 
#t.##"shdcs:PRINT#4," H à "3: PRINT#4,USI 
NG "##.##"shfcs:PRINT#4," H":G60OSUB 1390: 


CLS#4:RESTORE 1350:READ phi$:PRINT#4,phi 
$:GOSUB 1390 

910 IF malc}=5 THEN BORDER 6,4:RESTORE 1 
384:READ ph$:PRINT#4,CHR$ (19) ; ph$:LOCATE 
#4,12,b:PEN#4,3:PRINT#4, USING "##. ##":hd 
Ci: PRINT#4," H à "s:PRINT#A4,USING “#h.## 
“shfcs;:PRINT#4," H":60SUB 1390:CLS#4:RES 
TORE 1350:READ phi$:PRINT#4,ph1$:GOSUB 1 
370 

929 CLS#4:LOCATE#4,7,3:PRINT#4, "Voulez v 
ous un autre graphe ?":LOCATE#4,15,5:FRI 
NT#4, "Oui ou Non":WHILE a$<}"":a$=INKEYS 
HEND:WHILE a$<>"O" AND a$C"N"':a$=UPPER 
$CINKEY$) :WEND: IF a$="0" THEN RUN 149 EL 
SE CALL 0 

330 END 

1900 ‘### boire un petit coup ### 

1919 DATA 1,319,30,5,1,319,39,5,1,319,30 
12,1,319,90,5,1,319,30,5,1,319,30,5,1,35 
8,30,5,1,398,30,5,1,492,120,5,1,536,60,5 
11,1,60,5,1,253,30,5,1,253,39,5,1,253,36 
1%1293,30,9,1,213,120,9,1,239,120,5,1, 
253,120,5,1,1,60,5,1,253,30,5 

1920 DATA 1,253,30,5,1,293,30,5,1,253,30 
591293, 90,9,1,253,30,5,1,239,30,5,1,25 
3,30,5,1,284,30,5,1,319,30,5,1,253,60,5, 
1,284,60,5,1,1,30,5,1,239,30,5,1,239,30, 
J11,239,30,9,1,239,30,5,1,239,30,9, 1,239 
130,9,1,293,30,5,1,284,30,5 

1030 DATA 1,319,60,5,1,253,60,5,1,379,12 
0,5,1,319,30,5,1,319,30,5,1,319,30,5, 1,2 
93,30,9,1,319,120,5,1,358,120,5,1,379,12 
0,5,1,1,60,5,1,253,30,5,1,253,30,5,1,253 
130,9,1,229,60,5,1,1,30,5,1,284,30,5, 1,2 
84,30,5,1,284,30,5,1,284,60,5 

1940 DATA 1,1,30,9,1,225,30,9,1,225,30,5 
,1,229,30,9,1,253,60,5,1,1,30,5,1,319,30 
59,1,319,30,5,1,319,30,5,1,319,60,5,1,1, 
39,5,1,253,30,5,1,253,30,5,1,284,30,5,1, 
319,120,5,1,358,129,5,1,379,120,5 

1959 RETURN 

1960 ‘### data mode d'emploi ### 

1970 DATA “ Ce programme est destine a e 
valuer", "votre taux d'alcoolemie.Pour ce 
la:","-ENTREZ: NOM-SEXE-POIDS-et HEURE, D 
E"," DEBUT d'absorption d'alcool:","-VAL 
IDEZ a chaque fois par <ENTER?.","-CHOIS 
ISSEZ dans la colonne de droite" 

1680 DATA " le type d'alcool et ENTREZ 1 
e nombre"," face a l'heure d'absorption. 
"A la fin du repas ENTREZ le mot FIN" 
"L'ordinateur se chargera du reste." 
1090 ‘### listes des consommations ### 
1106 DATA 1-454-2 cl anis,2-454-6 cl ", 
3-404-2 cl whisky,4-40%-6 cl ",5-302-2 
cl  ",6-394-b cl " 

1110 DATA 7-204-6 cl1,8-164-6 c1 vin cuit 
,9-124-12 cl vin,iô-11%-12 cl ",11-19% 
-12 cl ",12-6%-25 cl biere,13-64-12 cl 


cidre,14-49%-3 cl diges.,15-294-3 cl liq 
ueur,16-19%-12 cl champ. 
1129 ‘### masse d'alcool par verre ##4 
1134 mih)=6:fine(h)=1:RETURN 
1149 m(h}=7.2:fine{h})=0:RETURN 
1159 mth)=21.6:fine(h)=0:RETURN 
1169 mth}=6. 4: fine(h)=6:RETURN 
1179 mth)=19,2: fine(h)=0:RETURN 
1189 mth)=4.8:fine(h)=@:RETURN 
1199 mth)=14.4:fine(h)=6:RETURN 
1266 m(h}=9.6:fine(h)=6:RETURN 
1214 mth)=7.68: fine(h)=6:RETURN 
1226 m(h)=11.52: fine(h)=6: RETURN 
1236 mth)=16. 56: fine (h}=6:RETURN 
1249 m(h)=9.6:#fine(h)=û:RETURN 
1256 mth)=12: fine (h}=0:RETURN 
1264 m(h)=6: fine (h}=0:RETURN 
1279 mih)=9.5:fine(h)=6:RETURN 
128% mh)=4.8:fine(h)=0:RETURN 
1298 m(h}=9.6:#fine(h)}=0:RETURN 
1300 ‘##+ datas commentaires ### 
1319 DATA “ BRAVO... vous etes tres s 
age" 
1326 DATA " AUCUN troubles apparents mai 
s! votre acuite visuelle diminue 
votre estimation des distances 
est faussee" 
1336 DATA “ ATTENTION : 
les troubles apparaissent 
les temps de reaction s allongen 
t legere euphorie * ; 
1346 DATA “ ATTENTION:conduire devient d 
angereux Votre vigilance diminue 
legere ivresse 
reflexes de plus en plus trouble 
S vous ne devez pas conduire de:" 
1359 DATA " si controle ou accident vous 
risquez! -1609 a 39966 frs d'amende 
-2 mois a 2 ans de prison 
+ retrait du permis de 3 ans maxim 
un si accident grave ou recidive ou deli 
t de fuite: les peines sont doublees." 
1369 DATA "DANGER: votre allure devient t 
itubante votre vue se dedouble 
Vous ne devez absolument pas cond 
uire de: " 
1379 DATA “ DANGER : 
: toute conduite est inpossible 
Vous ne devez absolument pas con 
duire de: " 
1386 DATA " DANGER : 
vous risquez de sombrer dans un 
pouvant entrainer la mort 
Vous ne devez absolument pas condui 
re de: “ 
1399 ‘### attente touche #44 
1409 FEN#4,2:LOCATE#4, 23,8: PRINT#4, "une 
touche SVP. "3: HHILE k$<"": k$=INKEYS$: WEN 
D:HHILE k$="": K$=INKEYS$ : HEND: RETURN 


coma 
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COMPUTER - 


Dans l'espace, personne ne nous 
entend crier. Aux commandes d'un 
tout nouvel appareil, votre mission 
sera de délivrer la planète Oméga de 
ses tyrans. 


Opération Oméga est écrit en Basic, il 
ne peut donc rivaliser en vitesse avec 
les programmes Assembleur. Il devrait 
pourtant intéresser les propriétaires de 
664 et 6128. A vos joysticks ! 














Jean-Michel BIEBER 


ne) 2 CL LL 


LD EN 


20 ‘+ ë 
36 ‘+ OPERATION OMEGA # 
49 ‘#4 * 
Jo ‘+ AMSTRAD + 
&à ‘+ CPC 6128 # 
76 ‘+ # 
86 ‘+ (C) 1985 BIB COMFUTEUR  +# 
96 ‘# # 
ICURMRET TS SI SSS ESS SI ESI STE SES SSSSLSTS 


118 MODE 0 

126 INE 6,9 

136 INK 1,15: INK 2,2:INE 3,14:INE 4,25:B 
ORDER à 

149 INE 5,10: INE 6,7: INE 7,6: INE 8,24:60 


| SUB 66 


156 INK à,0:PAPER © 
1éé FOR t=1 TO 104:FLOT RND+640,RNDx466, 
4NEXT 

176 GOSUB 930:G0SUB 1060:B0T0 229 

189 FOR t=380 TO 460:MOVE 1,t:DRAW 640, t 
,22NEXT 

196 FOR t=1 TO 26:MOVE 1,t:DRAN 640, t,2: 
NEXT 





200 FOR t=1 TO YO:MOVE t,22:DRAU t,400,3 
:NEXT 

214 FOR t=626 TO 640: MOVE t,1:DRAH t, 380 
,3:NEXT 

220 r=00:g=P1/90:k=0, 6 

274 a=0.6:b=PI-0.6 

249 FOR t=a TO h STEP q 

250 f=-F1/2 

260 GOSUB 424 

270 PLOT x+320,y+190,1 

286 FOR f=-P1/2 TO PI/2 STEF k 

299 PLOT x+320,y+196, 1 

300 DRAW x+320,y+199, 1 

319 NEXT f:NEXT t 

326 FOR f=-PI1/240.4 TO PI/2-6,4 STEP g 
330 t=a 

346 GOSUB 429 

350 PLOT x+326,y+190 

360 FOR t=a TO b STEP k 

370 GOSUB 426 

380 DRAW x+320,y+196,1 

390 NEXT 

400 NEXT 

410 GOTO 486 

420 h=45*ABS (COS (t#8) #C0S (F48) #SIN (ES) # 
COS (#45) ) 

430 IF h>5 THEN h=18-h 

449 h=htr 

450 x=h#C06 (1) #C05 (t)#1.4 

460 y=hxSIN(f) 

470 RETURN 

480 MOVE 210,200: DRAW 156,166,2:DRAW 456 
240,3 

498 MOVE 219,200: DRAW 159, 160,2: DRAM 456 
,249,3 

990 MOVE 465,242: DRAH 475,244,5 

919 PLOT 465,248,1:PLOT 470,252, 1:PLOT 4 
74,256, 1 


-929 MOVE 464,244: DRAW 484, 256, 4 


930 DATA 112,97,114,32,32,74,77,32,6b,73 
,69,66,69,82 

949 INK 10,19:PEN 19:LOCATE 16,15:PRINT 
CHR$ (236) +CHR$ (237) 

J90 x=3:y=370:PEN 8:FOR t=0 TO 13: MOVE 5 
39,176: DRAN 574,y,3:MOVE 324,170: DRAW 57 
9,y,9:READ a:GOSUB 1040:LOCATE 19,x:FRIN 
T CHR$(a):FOR k=1 TO SOG:NEXT ksx=x+isy= 
y-18:NEXT 

964 PEN G:LOCATE 16,15:PRINT CHR$(236)+C 
HR$ (237) 
3/9 LOCATE 5,24:PEN 2:FRINT'CHARGEMENT. . 
584 RUN'OMEGA" 

999 END 

AE HIER 

614 ‘* ALPHABET GENERE. # 
CRURMELTISE LS SI SES. 

30 SYMBOL AFTER &4 

644 SYMEOL 67,128,126,96,96,96, 126, 126,6 


650 SYMBOL 65,14, 30,54, 102, 126, 102,102,0 
669 SYMEOL 66,112,104,104,126,108,102,12 
b,0 

670 SYMBOL 68,112,120,108,192,102,126,12 
4,9 

689 SYMBOL 69,112,96,120,120,96,124,126, 
0 

690 SYMBOL 76,126,192,96,129,112,96,96, 4 
700 SYMBOL 71,126,192,102,96,119,102, 126 
9 

710 SYMBOL 72,68, 199, 102,126, 126, 102,102 
Ô 

, 

720 SYMBOL 73,16,24,24,24,24,24,24,0 

730 SYMBOL 74,2,6,6,6,6,192,126,0 

740 SYMBOL 75,98, 192,104,112, 104,102, 102 
ÿ 

3 

750 SYMBOL 76,64,96,96,96,96,126, 126,0 
760 SYMBOL 77,66,192,126,99, 66, 102, 192,9 
770 SYMEOL 78,66,192,118, 126, 102,192, 102 
9 

789 SYMBOL 79,126,108,102,192,102,126,12 
6,9 : 

790 SYMEOL 86,126,124,100,124,96,96,96,0 
800 SYMEOL 81,124,126,66,66, 78, 126, 126,0 
819 SYMBOL 82,120, 106, 100, 120, 194, 102,10 
2,0 

820 SYMEOL 83,60, 108,96, 56, 12,102, 124,0 
830 SYMEOL 84,126, 126, 24,24,24,24, 12,0 
849 SYMBOL 85,68, 192,102, 102,102, 126, 124 
À 

850 SYMBOL 86,102,102,36,36,24,24,24,0 
869 SYMBOL 87,102,192,66,66,90, 192,66, à 
870 SYMBOL B8,102,102,36,24,24,102,102,6 
880 SYMBOL 236,39,18,51,64,158,192,63,45 
890 SYMBOL 237,0,0,0,128,64,192,0,0 

900 SYMBOL 99,126, 118,6, 28, 48, 102, 126,0 
910 RETURN 

928 ‘ 

950 ‘ 

940 PEN S:LOCATE 7,3:PRINT"BIB" 

950 PEN 6:LOCATE 7,5:PRINT"COMPUTEUR" 

960 PEN S:LOCATE 7,7:PRINT"PRESENTE"* 

970 PEN 7:LOCATE 3,22:PRINT “OPERAT ION--0 

MEGA" 

980 RETURN 

990 ‘ son 

1009 ENV 2,10,-1,5,5,-1, 
1919 ENT -2,80,1,1,29,2, 
1926 FOR m=1 TO & 

1936 SOUND 4,54,19,15,2,5,19 

1946 NEXT m 

1959 RETURN . 

1069 INK 10,1:INK 9,26 

1976 FOR t=1 TO S:MOVE 39,t:DRAW 610, t,1 
0: NEXT 

1686 FOR t=b TO 29: MOVE 30,t:DRAW 619,t, 
2:NEXT 

1090 FOR t=29 TO 22:MOVE 30,t:DRAW 610, t 
,7:NEXT 


4 
Î 


.1108 FOR t=1 TO B:MOVE t,26:DRAN t,374, 1 


O:NEXT 

1116 FOR t=8 TO 20:MOVE t,26:DRAW t,374, 
2:NEXT 

1120 FOR t=20 TO 22: MOVE t,26: DRAM t,374 
,2:NEXT | 

1130 FOR t=616 TO 624: MOVE t,26:DRAN t,3 
74,9:NEXT 

1149 FOR t=624 TO 632:MOVE t,26:DRAU t,3 
74,2:NEXT 

1156 FOR t=632 TO 636: MOVE. t, 26: DRAN t,3 
74,10:NEXT 

1169 FOR t=394 TO 409:MOVE 26,t:DRAW 616 
st, 10: NEXT 

1179 FOR t=382 TO 392:MOVE 35,t:DRAW 419 
54, 2:NEXT 

1186 FOR t=378 TO 384:MOVE 36,t:DRAW 619 
5€ 7:NEXT 

1190 x=20:FOR t=1 TO 22:MOVE t,x:DRAN t, 
20,10:x=x-1:NEXT t 

1200 x=380:FO0R t=1 TO 22: MOVE t,x:DRAN t 
5280,10:x=x+1:NEXT t 

1219 x=300:FOR t=618 TO 636: MOVE t,386: D 
RAW 618,x,19:x=x+1:NEXT t 

1220 x=1:FOR t=618 TO 636: MOVE t, 26: DRAM 
tx Os x=x+1iNEXT t 

1236 RETURN 


à DEFINT a-z 
7 PEN O:LOCATE 5,24:PRINT"CHARGEMENT, .. " 


19 FOR i=30 TO 600 STEP 2:MOVE i,30:DRAW 
i,370,0:NEXT i 

12 G0SUB 4500 

15 SYMBOL AFTER 60:G0SUB 3870 

26 ENV 5,1,15,1,1,-2,1,1,0,2,12,-1,8,2,- 
1,202ENT -1,1,0,3,1,-1,1,1,0,2,1,0,1,1,1 
1 

( 

49 CLS: INK 0,0: INK 1,2: INK 3,6:PAPER 0 
55 INK 15,2,0:PEN 15:LOCATE 4, 10:PRINT"U 
N INSTANT SW" 

80 GOSUB 3380 

90 GOSUB 2620 

95 DIM N$ (18) 

97 DIM S(18) 

98 FOR U=1 TO 10:S(U)=0:N$ (U)="PERSONNE" 
:NEXT U 

190 FOR I=1 TO 14:INK I,0:NEXT 1:G60SUB 2 
890 


101 INK 14,0:PEN O:LOCATE 4, 10:PRINT"UN 


INSTANT SW" 
192 INK 6,0: INK 1,2: INK 3,6:PAPER © 

193 SPEED INK 10,19: INK 7,18,3 

195 INK 2,23: INK 4,10: BORDER 0: INK 5,24 

197 INK 6,15 

125 FOR k=1 TO 200:NEXT k:FOR k=1 TO 3:9 
OUND 1,20,30,15,5,1:FOR 1=1 TO BO0:NEXT 

L:NEXT k 

136 21$=CHR$ (225) +CHRS (224) 


146 22$=CHR$ (227) +CHR$ (228) +CHR$ (229) 
159 22$=CHR$ (230) +CHR$ (231) +CHR$ (232 
16 z4$=CHR$ (233) +CHR$ (234) +CHR$# (235) 
170 29$=CHR$ (236) +CHR$ (237) 

180 26$=CHR$ (238) +CHR$ (239) +CHR$ (240) 
190 27$=CHR$ (241) +CHR$ (242) +CHR$ (242) 
2600 28$=CHR$ (244) 

249 sc=0 

245 vi=3 

254 re=2:wp=i 

260 tb=1:5=10:TP=0 

276 a=1:c=5 

275 TEJ=6 

286 ch=6 

296 Bi=24à 

306 v=19:t=5 

316 w=v:x=à 

326 b=18:ct=ù 

330 g=320:ca=0 

349 ts=0 

345 GOSUB 3360 


350 ‘HIER 
360 ‘+ * 
370 ‘* PRG PRINCIPAL # 
380 ‘+ # 
300 HP 
460 PEN 1:LOCATE a,b:PRINT 2i$ 
419 J=J0Y (0) 

420 IF t>29 THEN t=10 


430 IF J=16 THEN MOVE 10,B1:DRAN 600,81 
,D:DRAW 100,B1,2:DRAW 609, B1,2:DRAW 100, 
B1,0:GO0SUE 2420 

440 IF J=1 THEN GOTO 450:ELSE IF J=2 THE 
N GOTO 449:ELSE GOTO 470 

45 1F B<=5 THEN GOTO 470:ELSE PEN 0:LOC 
ATE A,B:PRINT 21$:B=B-1:B1=B1+18:PEN 1:L 
OCATE A,B:PRINT Z1$:G0T0 470 

460 IF E>=14 THEN GOTO 470:ELSE PEN 0:LO 
CATE A,B:PRINT Z1$:B=B+1:B1=B1-18:LOCATE 
A,B:PEN 1:PRINT Z1$ 

470 IF CA=1 THEN GOSUB 950:G0T0 414 

486 IF x=0 THEN ol=INT(RND#10) #5: x=15w1 
9 

490 ON TE GOSUE 560, 710,890, 1040 

500 GOTO 400 

S10 HN 


529 ‘* + 
530 ‘* NIVEAU 1 * 
540 ‘* * 


SSD HOME 

560 ‘ 

570 o=INT (RND#19)+5 

584 IF ct=8 THEN tbz2:v=19:t=isct=û:s=2 
9:X=1:PEN 9:LOCATE w,oi:PRINT * -":FOR k 
=1 TO 3:SOUND 1,20,30,15,9,1:FOR 1=1 TO 
BOO:NEXT L:NEXT k: INK 7, 18:RETURN 

990 IF w=i THEN PEN @:LOCATE w,oi: PRINT 
CHR$ (202) +" ":x=0:ELSE PEN 7:LOCATE w,oi 
PRINT CHR$(202)+" inf 
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600 IF v=i AND b=t THEN vi=vi-1:60SUB 33 
06:GO0SUB 2510:G0SUB 3320: v=19: t=5 

619 IF w=1 AND b=01 THEN LOCATE v, t:PEN 
O:PRINT z2$:vi=vi-1:G6OGUB 3300:G0SUB 251 
0:G0SUB 3320:w=19:01=INT (RND#10) +5: t=5: v 
=19 : 

620 LOCATE v,t:PEN G:PRINT 22$:1F t>=o T 
HEN GOTO 649:ELSE t=t+1 

630 SOUND 1,590+t#10,10 

640 IF v=i THEN SOUND 1,26,19:PEN 9:LOCA 
TE V,t:PRINT 22$:v=19:t=5:RETURN:ELSE v= 
V-1:PEN S:LOCATE v,t: PRINT 226 


650 RETURN 

BO0 HIHI 
670 ‘* 4 
680 ‘+ 2 TABLEAU * 
699 ‘+ 4 
700 ‘HN 
719 ‘ 

720 IF CT=5 THEN VI=VI+1:TB=3:CT=0:5=30: 


LOCATE v,t:PEN Q:PRINT 23$:v=19: t=INT (RN 
D#10)+5:60SUB 3050: RETURN 

730 IF ch=1 THEN GOTO 798 

740 IF vé=1 AND b=t THEN vi=vi-1:G0SUB 3 
326:G0SUB 3350:60SUB 3390:60SUB 2510: v=1 
g:t=10 

750 LOCATE v,t:PEN O:PRINT 23$ 

160 IF v=i THEN SOUND 1,20, 10:PEN 0:LOCA 
TE V,t:PRINT 23$:v=19: = INT (RND#10) +5:RE 
TURN:ELSE v=v-1:PEN 5:LOCATE v,t: PRINT z 

3$ 

770 IF v=i8 OR v=14 OR v=19 OR v=8 THEN 
LOCATE V,t:PEN 1:PRINT 23$ 

780 RETURN 

790 PEN G:LOCATE v,t:PRINT 28$: v=v-2 

800 IF v<=2 AND b=t THEN vi=vi-i:GOSUB 
3320:G60SUB 3300:60SUB 2519: v=19:t=10: ch= 
Q: 

816 LOCATE v,t:PEN 7:PRINT 28$ 

820 IF v=i OR v=2 THEN ch=0:PEN O:LOCATE 
V,t:PRINT z8$:v=19:t=10 


839 RETURN 

CURE TETE TES SL SES DEC LICL ECS LESCS 

850 ‘+ 4 

860 ‘+ 3 tableau # 

870 ‘+ 4 
880 HHHEHHPMHEEPHEHOHHNET 

890 ‘ 

900 IF ct=8 THEN ct=0:5=40: tb=4:t=INT (RN 


D*10)+5:G0SUB 3050: v=1: RETURN 

910 LOCATE v,t:PEN 0:PRINT 24$ 

920 IF v<=i THEN SOUND 1,26,10:FEN 6:LOC 
ATE v,t:PRINT 24$:v=19s: t=INT (RND#19)+5:R 
ETURN:ELSE v=v-1:PEN S:LOCATE v, t: PRINT 
z4$ 

930 IF v=i8 OR v=14 OR v=19 OR v=8 THEN 
LOCATE v,t:PEN 1:PRINT 24$:ELSE RETURN 
940 vi=v-2:ca=i 

950 vi=vi-1:PEN 3:LOCATE vi,t:PRINT 28$+ 
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968 IF vi=1 THEN PEN O:LOCATE vi, t: PRINT 
z8$:ca=0 

970 IF b=t AND vi£=2 THEN LOCATE v, t:PEN 
O:PRINT 23$:v=19:t=1ü:ca=: vi=vi-1:GDSU 

B 3320:G0SUB 2510 


980 RETURN 

900 ‘HN 
1609 ‘+ # 
1919 ‘+ 4 tableau + 
1920 ‘+ # 
IUAURRE TE ZEZECELELELLELELELELELE LEE LE 
1948 ” 


1050 IF ct=8 THEN GOTO 1100:RETURN 

1969 IF v=19 THEN SOUND 1,20,16:PEN G:LO 
CATE V, t:PRINT 25$:v=1: t=INT (END#16)+5:R 
ETURN 

1979 LOCATE v,t:PEN O:PRINT z5$:v=v#iit= 
INT(RND#10)+5:PEN 6:LOCATE v,t:PRINT 254$ 
:SOUND 1,t#19,15 

1980 IF v=2 AND b=t THEN vi=vi-1:SOUND 1 
5200,30,15:G0SUB 3320:60SUB 2510 

1099 RETURN 


1100 ‘HER 
1119 ‘+ + 
1128 ‘+* PASSAGE AU TABLEAU  +# 
1130 ‘+ SUPERIEUR # 
1149 ‘+ + 
1190 HIER 
1160 FOR T=0 T0 640: MOVE T,64:DRAW T, 18à 
JDNEXT T 

1179 tb=1:5=10 

1179 V=19:T=5 


1180 w=v:ct=à 

1185 TP=TP+i 

1186 IF TP=1 THEN INK 5,7:ELSE IF TP=2 T 
HEN INK 5,18:ELSE IF TP=3 THEN INK 5,13: 
ELSE IF TP=4 THEN TP=ÿ:INE 5,0 

1190 ts=ts+i:ON ts GOSUB 3750 

1269 GRAPHICS PEN 1:TAG:MOVE 526, 38:PRIN 
T vis: TAGOFF 

1219 IF vi£>6 THEN GOTO 360 

1215 ANNEE 


1217 ‘# # 
1226 ‘* FIN JEU / ENTRE DU NOM *# 
1222 ‘+ Li 


1225 ‘HIHI 

123 ‘ 

1240 LOCATE 2,13: INK 11,22,0:PEN 11:PRIN 
GAME - OVE R":FOR T=1 TO 3000: N 
EXT T:INK 11,22 

1250 FOR J=1 TO 2406:NEXT J 

1260 INK 0,0: INK 1,11: INK 2,14: INK 3,6 
1270 MODE 1:BORDER © 

1280 PEN 3:LOCATE 2, 3:PRINT"SELECTIONNEZ 
VOTRE NOM AVEC LA MANETTE" 

1290 LOCATE 19,7:PRINT"PUIS TIREZ FOUR V 
ALIDER" 

1300 LOCATE 5,5:PEN 2: PRINT "€" 


= « RÉ ——}":PEN 1 
1319 CR=65:A$=CHR$ (CR) 
1320 b$="" 
1330 FOR u=i TO 49:LOCATE u,1:PRINT CHR$ 
(127):NEXT u 
1346 FOR u=i TO 44:LOCATE u,24:PRINT CHR 
$(127):NEXT u 
1350 FOR u=2 TO 23:LOCATE 1 ,u:PRINT CHR$ 
(127):NEXT u 
1366 FOR u=2 T0 23:LOCATE 49,u:PRINT CHR 
$(127):NEXT u 
1376 FEN 2 
1384 TAG:MOVE 319,219: GRAPHICS PEN 2:PRI 
NT" "5: MOVE 310,210: PRINT A$3 : TAGOFF 
1398 J=J0Y (4) 
1466 IF J=B THEN CR=CR+I 
1419 IF J=4 THEN CR=CR-1 
1426 IF cr93 THEN cr=b5:ElSE IF cri65 T 
HEN cr=93 
1436 A$=CHR$# (CR) 
1446 TAG:MOVE 310,216: PRINT" "MOVE 310 
,210:PRINT A$:: TAGOFF 
1454 IF j=16 AND cr=91 THEN a$=CHR$ (46) 
1469 IF j=i6 AND cr=92 THEN GOTO 1461:EL 
SE GOTO 1470 
1461 IF LEN(b#)>4 THEN b$=LEFTS (b$,LEN(b 
$)-1):a$="":LOCATE 14,17: PRINT" 

“:LOCATE 14,17:FRINT b$:ELSE b$=" 
1470 IF j=i6 AND cr=93 THEN N$=B$:G0T0 1 
519 
1480 IF J=i6 THEN b$=b$+a$:LOCATE 14,17: 
PRINT b$ 
1496 FOR t=1 TD 360: NEXT t 
1506 IF LEN(b$)=15 THEN n$=b$:ELSE GOTO 
1390 
1519 IF SC<=6(19) THEN LOCATE 5,29:PRINT 
"PAS DE MEILLEUR SCORE":FOR T=1 TO 5666: 
NEXT T:60T0 1626 
1524 IF scis(i) THEN s(10)=5(9):5(9)=5 (8 
jis(8)=5(7):5(7)=5(6):5(8)=5(5):5(5)=5(4 
}:5(4)=25(3):5(3)=5(2):5(2)=5(1):5(1)=sc: 
GOSUB 1720:60T0 1628 
1530 IF sc>s(2) THEN s(16)=5(0):s(9)=5 (8 
l:s(8)=5(7):5(7)=5(6):5(6)=5(5):5(5)=8(4 
}:5(4)=25(3):5(3)=5(2):5(2)=sc: GOSUR 1756 
:G60TO 1620 
1549 IF scès(3) THEN s(10)=5(9}:5(9)=5(8 
):5(8)=5(7):5(7)=5(6):5(6)=5(5):5(5)=5(4 
}:5(4)=5(3):5(3)=5c:G60SUB 1749:G0T0 1626 
1556 IF sc>s(4) THEN s(19)=5(9):5(9)=5(8 
}:5(8)=5(7):5(7)=5(6):5(6)=5(5):5(5)=s(4 
}:5(4)=5c:G0SUB 1754:G60T0 1626 
1564 IF scs(5) THEN s(10)=5(9):5(9)=5(8 
j:s(8)=5(7):8(7)=5(6):5(6)=5(5):S(5)=5c: 
GOSUB 1766:G0T0 1624 
1574 IF scos(6) THEN s(10)=5(9):s(9)=5 (8 
j:5(8)=5(7):5(7)=5(6):5(6)=5c:GOSUB 1774 
:6070 1628 


1589 IF sc>s(7) THEN 5(10)=5(9):5(9)=5(8 
}:5(8)=5(7):5(7)=5c:60SUB 1780:G0T0 1620 
1596 IF sc's(8) THEN s(10)=5(9):5(9)=5(8 
):5(8)=5c:G60SUB 1790:G0T0 1628 

1608 IF sc>s(9) THEN s(19)=5(9):5(9)=sc: 

GOSUB 1619:G0T0 1628 

1616 5(16)=sc:n$(16)=n$ 

1626 MODE 1 

1636 FOR u=5 TO 35:LOCATE u,26:PRINT CHR 

$(127):NEXT u 

1646 FOR u=5 TO 35:LOCATE u,5:PRINT CHR$ 
(127):NEXT u 

1656 FOR u=5 TD 19:LOCATE 5,u:PRINT CHR$ 
(127) :NEXT u 

1666 FOR u=5 TO 19:LOCATE 35,u:PRINT CHR 

$(127):NEXT u 

1676 c=1:FOR t=8 TO 17:LOCATE 6,t:PEN 2: 

PRINT s(c):LOCATE 12,t:PEN 1:PRINT"..... 
.."!LOCATE 19,t:PEN 3:PRINT n$lch:c=c+i: 

NEXT t 

1684 b$="":sc=0 | 

1698 PEN 3:LOCATE 5,23:PRINT"VOULEZ-VOUS 
REJOUER O/N" 

1700 Z$=UPPERS(INKEY$) :1IF Z$="" THEN GOT 
0 1760 

1710 IF 2$="0" THEN MODE 0:G0T0 190:ELSE 
IF Z$="N" THEN END:ELSE GOTO 1760 

1720 n$(19)=n$ (9) :n$(9)=n$ (8) :n$(8)=n$ (7 
jin$(7)=n$ (6) :n$(6)=n$(5):n$(5)=n$(4):n$ 
(i=n$(3)in$(3)=n$ (2)sn$(2)=n$(1):n$(1)= 
n$: RETURN 

1739 n$(19)=n$ (9) :n$(9)=n$ (8) :n$(8)=n$(7 
jin$(7)=n$ (8) :n$(6)=n$ (5) :n$(5)=n$ (4) :n$ 
(4)=n$(3):n$ (3)=n$ (2) :n$ (2) =n$: RETURN 
1746 n$(19)=n$(9):n$(9)=n$(8) :n$(8)=n$ (7 
jin$(7)=n$ (6) :n$(8)=n$(5):n$(5)=n$ (4) :n$ 
(4)=n$ (3) :n$ (3) =n$: RETURN 

1759 n$(19)=n$ (9):n$(9)=n$ (8) :n$(8)=n$(7 
Jin$(7)=n$ (6) :n$(8)=n$(5)s:n$(5)=n$ (4) :n$ 
(4)=n$:RETURN , 
1769 n$(19)=n$(9):n$(9)=n$(8) :n$(8)=n$ (7 
jin$(7)=n$ (6) :n$(6)=n$(5):n$(5)=n$:RETUR 
à 

1770 n$(19)=n$ (9):n$(9)=n$ (8) :n$(8)=n$(7 
jin$(7)=n$ (6) :n$(8)=n$: RETURN 

1786 n$(19)=n$(9):n$(9)=n$ (8) :n$(8)=n$(7 
}:n$(7)=n$:RETURN 

1796 n$(19)=n$(9):n$(9)=n$ (8) :n$(8)=n$:R 
ETURN 

1804 n$(19)=n$ (9) :n$(9)=n$:RETURN 

1810 HEIN 
1820 ‘+ # 
1830 ‘+ PLEIN CARBURANT # 
1844 ‘+ # 
1850 * HIHI 
1860 PEN 0:FOR I=0 TO 644 STEP 2: MOVE I, 
64: DRAW 1,180,9:NEXT I:PEN 1 

1879 DATA 1,1,1,1,1,1,1,1,1,1,llllls 
1,1,1,1,1 


-1880 DATA 2,2,2,2,2,2,3,1,1,1,1,1,1,1,1, 


LA 
1890 DATA 0,9,9,0,0,9,5,1,1,11115151, 
(AL 

1900 DATA 19,19,10,19,19,0,5,1,1,1,1,1,1 
LIÉE 

1910 DATA 19,19,10,19,18,0,5,1,1,1,1,1,1 
,1,1,10,10,18,10,1 

1926 DATA 10,0,0,0,0,9,5,1,1,1,1,10,19,2 
,2,0,9,9,5,1 

1930 DATA 19,0,0,4,4,4,6,10,10,2,2,0,0,0 
,0,0,9,0,5,1 

1949 DATA 19,0,0,0,0,0,0,0,9,0,0,9,0, 4,4 
,19,19,0,5,1 

1950 DATA 19,0,0,4,4,4,4,4,4,4,6,10,10,1 
,1,1,18,0,5,1 

1960 DATA 19,18,10,1,1,1,1,1,1,1,1,1,1,1 
,1,10,10,0,5,1 

1970 DATA 11,1,1,1515ltolos1575 292525 
0,,9,5,1 

1980 DATA 1,1,19,10,10,10,19,1,1,1,1,8, 
0,0,0,0,0,9,5,1 

1996 DATA 19,0,9,0,0,0,0,2,2,10,10,8,0,1 
0,19,10,18,10,10,1 

2000 DATA 19,0,0,4,4,0,9,0,0,0,0,0,0, 10, 
bit 

2016 DATA 19,9,6,10,1,19,14,4,4,4,4,4,4, 
19,1,1,1,1,141 

2026 DATA 19,0,0,10,1,1,1,1,1,1,1,1,1,1, 
AMEMS 

2930 HAUT=S 

2040 RESTORE 1870:FOR 1=1 TO 16 

2054 INK 10,30:PEN 3 

206% FOR I=1 TO 29 

2070 READ A 

2080 IF A=6 THEN MOTS=CHRS (142) 

2090 IF A=5 THEN MOTS=CHRS (217) 

2100 IF A=7 THEN MOTS=CHRS (135) 

2110 IF A=4 THEN MOTS=CHRS (218) 

2120 IF A=1 THEN MOTS-CHRS (207) 

2136 IF A=8 THEN MOTS=CHRS (219) 

2140 IF A=0 THEN MOT#=CHR$ (32) 

2156 IF A=2 THEN MOTS=CHRS (214) 

2160 IF A=3 THEN MOTS-CHRS (139) 

2176 IF 4=19 THEN MOTS=CHRS (215) 

2175 IF a=9 THEN not$=CHR$ (96) :PEN 4, 
2186 LOCATE I,HAUT:PRINT MOTS 

2185 PEN 3 

2194 NEXT I 

2204 HAUT=HAUT#1 

2216 NEXT 1 

2226 x=10:y=305: INK 11,11: IN 12,26 
2249 M=9:Y1=0 

2250 INK 13,2,6:INK 14,6,2 

22bû TAG:GRAPHICS PEN 2:MOVE x,y2PRINT C 
HRS (95) ; : TAGOFF 

2276 j=J0Y (0) 

2275 IF x€9 THEN »=9:ELSE IF y£110 THEN 
GOTO 2365 


228% ON j GOTO 22309,2314,2340,2320,2346, 

2340,2340,2330 

2290 IF m=9 THEN x1=2:G0T0 2346:ELSE IF 
m=1 THEN xi=-2:G0T0 2349:ELSE GOTO 2349 
2308 IF TEST(X-4,V)£50 OR TEST(X+30,Y) € 
9 THEN GOTO 2352:ELSE yi=1:X1=6:m=2:G0T0 
2340 

2319 IF TEST(X-4,Y-16)<34 OR TEST(X+30,Y 
-16)€£}9 THEN GOTO 2353:ELSE yi=-1:X1=0:m 
=2:6010 2344 

2324 xi=-2:y1=0:m=1:G0T0 2346 

2336 x1=2:y1=ü:m=6:G0TO 2340 

2346 TAG:GRAPHICS PEN 2: MOVE x,y: PRINT" 
Masxcxtaley=yt+yLe MOVE x, y:PRINT CHR$ (95) 
+: TAGOFF 

2349 IF TEST(x-4,y+2)<4 DR TEST(x-4,y-1 
4)<56 THEN GOTO 3352 

2356 IF TEST(X+30,V+2) 430 OR TEST (x+230,y 
-14Y7<;0 THEN GOTO 2352 

2351 G60T0 2274 

2352 IF TEST(X-4,Y+2)=3 OR TEST (X+30,Y+2 
)=3 THEN GOTO 2358:ELSE GOTO 2359 

2353 IF TEST(X-4,Y-16)=3 OR TEST(X+30, Y- 
16)=3 THEN G0TO 2358:ELSE GOTO 2359 

2354 IF TEST(X+30,Y+2)€30 DR TEST (x+30,y 

-16)£>9 THEN GOTO 2358:ELSE GOTO 2359 
2355 IF TEST(x-4,y+2)=3 OR TEST(x-4,y-14 
)=3 THEN GOTO 2358:ELSE GOTO 2359 

2358 GOSUB 3250: TAG:FOR t=1 TO 3:FOR o=1 
TO 3:GRAPHICS PEN 5:MOVE x,y:a=96+0: PRI 
NT CHR$(a);:FOR i=1 TO 206: NEXT i:GRAPHI 

CS PEN 9: MOVE x,y:PRINT CHR$ (a) ::NEXT 0: 
NEXT t:TAGOFF:GOTO 2365 

2359 SOUND 1,20,29,15,1,1,12:sc=sc+1: 605 
UB 3370:G0T0 2270 

2365 bi=244:c=S:a=1:b=10:v=19:t=5: «=0: 60 
SUB 3216:F0R i=2 TO 19:LOCATE i,2:PEN 6: 

SOUND 1,409,15:PRINT CHR$(297):NEXT i 
2367 Q=320:PEN 6:FOR 1=6 TO 640 STEF 2:M 

OVE 1,64:DRAW 1,349,0:NEXT I:PEN 1 

2368 IF tbj=1 THEN tbj=0:GOSUB 3756:RETU 

RN 

2369 GOSUE 3160: tb j=1: RETURN 

2370 HAINE 
2380, ‘# # 

2390 ‘+ DIVERS SOUS/PRG + 
2499 ‘+ * 

2410 HIIEEEEHNHEE 
2426 q=q-8:1F q4b THEN G60TO 1840:ELSE M 

OVE q,268:DRAN q,382,6:MOVE q+4,368:DRAW 
q+4,382,0 

2436 IF b£>t THEN FOR n=i TO 169:SOUND 1 
29,15: NEXT: RETURN 

2435 IF b=5 THEN RETURN 

2446 FOR n=i TO 164: SOUND 129,15:NEXT n 

2456 GOSUB 3256:FOR H=1 TO S:LOCATE V,T: 
PEN H: PRINT Z6$:PEN H-j:LOCATE V,T:FRINT 
27$:FOR Y=1 TO 196: NEXT Y:NEXT H 

2466 PEN G:LOCATE V,T:FRINT Z6#:LOCATE V 
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 T:PRINT 277$ 

2478 ct=ctti:sc=sc+s:GOSUB 3320: IF tb=i 
THEN v=19:t=5 

2475 IF tb=4 THEN v=i 

2488 ch=1:RETURN 

2496 HEIN 


2492 ‘+ # 
2495 ‘+ explosion vaisseau  * 
2497 ‘4 + 


2500 ANNEE 

2914 LOCATE a,b:PEN 3:PRINT CHR$ (293) +CH 
R$(295)+" ":GOSUB. 2250:FOR j=1 TO 460:NE 
XT j 

2526 LOCATE a,b:PRINT CHR$(197)+CHR$ (199 
):G0SUB 728 

2536 FOR j=1 TO SOG:NEXT j 

2549 LOCATE a,b: PRINT " * 

2594 RETURN 

2960 ANNEE 


2576 ‘#4 # 
2589 ‘+ CREATION L 
2594 ‘+ DES CARACTERES # 
2600 ‘+ .. + 
2618 © HHENANNNNNPNHAHHNHEHEE 


2620 ‘ 
2625 SYMBOL 217,15,15,15,15,15,19,15,15 
2627 SYMBOL 219,240, 240,249,240,240,246, 
240,249 . 

2630 SYMBOL 225,128, 193,295, 248,63, 3, 9,0 
2649 SYMBOL 226, 224,240, 254, 7,254, 248, 9%6 
10 l , 

2650 SYMBOL 227,0,0,0,1,2,31,7,0 

2660 SYMBOL 228,3,5,233,17,3,252,16, 120 
2670 SYMBOL 229,192, 128,0,0,0,0,0,0 
2680 SYMBOL 239,1,3,12,31,15,7,3,0 

2690 SYMBOL 231,192,192,95,210, 242,223, 1 
92,0 

2700 SYMBOL 232,64, 128, 128,9,0, 128, 128,6 
4 

2710 SYMBOL 233,7,124,12,27,27,12, 124,7 
2720 SYMBOL 234,224,63, 26,245, 250,21,63, 
224 

2730 SYMBOL 235,9,0, 128, 128, 128, 128, 0,0 
2740 SYMBOL 236, 30,18,51,64, 158, 192,63, 4 
5 

2756 SYMBOL 237,0,0,0,128,64,192,0,0 
2766 SYMBOL 238,6,64,4,8,64,16, 13,64 
2776 SYMBOL 239, 16,65,8,32,0,68,4,3 
2780 SYMBOL 249,0,0,0,12B,0,64,0,0 

2796 SYMBOL 241,49,14,32,17,36,64,8, 17 
2800 SYMBOL 242,9,8,3,72,0,129,24,32 
2816 SYMEOL 243,0, 128,0, 0,0,0, 128,0 
2820 SYMBOL 244,0,9,48, 120,255, 124,48, 0 
2836 SYMBOL 245,6, 126,72, 254,224, 255, 56, 
() 

2846 SYMBOL 246,0,0,0,0,31,0,0,0 

2850 SYMBOL 216,255, 255, 255,259, 0,0, 0,4 
2866 SYMBOL 218,0,0,0,0,255, 255,295, 255 
2870 SYMBOL 215,255, 255, 255, 255, 255,255, 
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255, 255 

2884 RETURN 

2890 GRAPHICS PEN 3:G60SUB 3120: x=352: x1= 
398:FOR t=1 TO 18:MOVE t,x: DRAM t,xl,iix 
=x+0.5:x1=x1-0.5:NEXT:MOVE 1,350: DRAW 64 
9,330, 1 

2900 x=352:x1=398:FOR t=640 TO 622 STEP 
1: MOVE t,x:DRAW t,xl,1:x=x+0.5:xi=x1 0, 
JENEXT 

2910 x=2:x1=636:FOR t=398 TO 390 STEP -1 
MOVE x, t:DRAW x1,t,2:x=x+2:x1=x1-2: NEXT 
2929 x=2:x1=636:FOR t=350 TO 360: MOVE x, 
t:DRAW x1,t,25:x=x#2: x{=xi-2:NEXT 

2930 MOVE 1,350:DRAW 640,350, 1 

2948 MOVE 1,398: DRAW 640,398, 1 

2950 TAG:GRAPHICS PEN 3:MOVE 369,382: PRI 
NT"ENERGIE "; : TAGOFF . 

2960 x=1:x1=50:FOR t=1 TO 18: MOVE t,x:DR 
AW t,xl,isx=xt0, 5:x1=x1-0.5:NEXT: MOVE 1, 
390:DRAW 640,350, 1 

2970 x=1:x1=50:FOR t=649 TO 622 STEP -i: 
MOVE t,x:DRAW t,xi,1ix=xt0, 5: x1=x1-0.55N 
EXT 

2980 x=2:x1=636:FOR t=50 TO 49 STEP -1:M 
OVE x,t:DRAW xi,t,2:x=x+2: x1=xi-2:NEXT 
2990 x=2:x1=636:FOR t=1 TD 10:MOVE x, t:D 
RAW x1,4,2:x=x+2:x1=xi-2:NEXT 

3006 MOVE 1,52:DRAW 640,92, 1 

3919 MOVE 1,0:DRAW 649,0,1 

3020 TAG:GRAPHICS PEN 3:MOVE 30,30: PRINT 
"SCORE : “; : TAGOFF 

3030 TAG: MOVE 390,30: PRINT" VIES: "3 : TAGOF 
F 

3040 FOR i=2 TO 19:LOCATE i,2:PEN 6:SOUN 
D 1,400,15:PRINT CHR$(207):NEXT i 

3054 ‘FOR k=1 TO 200:NEXT k:FOR k=1 TO 3 
:SOUND 1,29,30,15,5,1:FOR 1=1 TO B69:NEX 
T 1NEÏT k 


3660 RETURN 

3070 ‘HIHI 
3080 ‘+ # 
3090 ‘+ DECORS # 
3100 ‘+ # 


31 19 ‘ PPPPPT PET ENST SENTE SSSR 
3126 FOR 1=1 TO 640 STEP 2:MOVE 1,70:DRA 
W_ i,RND#105+70, 4 


3125 NEXT :i 
3149 RETURN 
3190 HAN 
3169 ‘+ + 
3170 ‘+ explosion L 
3180 ‘+ # 


3190 HHIEEHHANHHHOEE 

3206 LOCATE a,b:PEN O:PRINT z1$ 

3216 FOR n=1 TO 35: SOUND i,n+48,n 

3220 SOUND 4,60-n,n 

3236 SOUND 2,n+30,1:NEXT 

3249 RETURN 

3256 FOR j=15 TO 1 STEF -1:SOUND 2,0,15, 


39,9, 1:NEXT j 

3260 RETURN 

3280 ENV 2,10,-1,8,5,-1,4 

3296 ENT -2,80,1,1,20,2,1 

3300 SOUND 4,50,190,15,2,2,20 

3310 FOR t=1 TD 509: NEXT:RETURN 

3320 ‘HAINE 

3336 ‘*# GESTION DU SCORE + 

3340 ‘HIER 

3350 IF vi=0 THEN G0TO 1206 

3360 GRAPHICS PEN 1:TAG: MOVE 526,30:PRIN 
T vis: TAGOFF 

3370 GRAPHICS PEN 1:TAG:MOVE 210, 39:PRIN 
T sc; : TAGOFF : RETURN 

3380 ‘HIHI 

3390 ‘* ALPHABET GENERE. # 

3400 ‘HIHI 

3419 SYMBOL AFTER 64 

3426 SYMBOL 67,129,126,96,96,96,126,126, 
[] 

3436 SYMBOL 65,14,39,54,102,126,102,102, 
[] 

3449 SYMBOL 66,112,104, 164, 120, 108, 102, 1 
26,0 

3450 SYMBOL 68,112,126, 198, 192,192, 126,1 
24,0 

3460 SYMBOL 69,112,96,129,120,96,124, 126 
(:) 

4 

3470 SYMBOL 70,126, 192,96, 120,112,96,96, 
(] 

3484 SYMBOL 71,126, 192, 192,96,119,102,12 
6,0 

3490 SYMBOL 72,68, 100, 102, 126, 126, 102,10 
2,0 

3500 SYMBOL 73,16,24,24,24,24,24,24,0 
3510 SYMBOL 74,2,6,6,6,6,102,126,0 

3520 SYMBOL 75,98, 192,104, 112,104,102,10 
2,0 

3530 SYMBOL 76,64,96,96,96,96, 126, 126,0 
3540 SYMBOL 77,466,102, 126,96, 66, 102,102, 
o 

3550 SYMBOL 78,66, 102, 118,126, 192, 102,10 
2,0 

3566 SYMBOL 79,120,108,192,102,102,126,1 
26,0 

3570 SYMBOL 80,120,124,106,124,96,96,96, 
9 

3580 SYMBOL 81,124,126,66,6b, 78,126, 126, 
0 

3590 SYMBOL 82,120,106, 100, 129,164,102,1 
92,0 

3600 SYMBOL 83,69, 108,96, 56, 12,102,124,6 
3610 SYMBOL 84,126,126,24,24,24,24,12,0 
3620 SYMBOL 85,68, 192, 192, 102, 102,126, 12 
4,0 

3630 SYMBOL 86,102,102,36,36,24,24,24,0 
3640 SYMEOL 87,192, 102, 66,66,96,102,66, à 
3650 SYMBOL 88,102,102,36,24,24,102, 102 
(r) , 


3660 SYMBOL 89,102,102,66,36,24,24,24,4 


3670 SYMBOL 96,126,118,6,28, 48, 192,126,9 


3680 SYMBOL 91,0,0,0,9,0,24, 24,0 
3694 SYMBOL moe 254,254,96, 32,16 
3700 SYMBOL 93,0, 233, 149, 179, 172, 170, 233 
Ô 

0 

3718 SYMBOL 95,0,60, 126,255, 129, 126, 24,6 
3720 SYMBOL 96,60,98, 249,253, 253, 124, 6h, 
Ô 

3736 SYMBOL 97,0,0,24, 60,60, 24, 0,0 

3732 SYMBOL 98,0,60, 102, 194,67, 102, 60, 16 
3735 SYMBOL 99,126, 195, 129, 1, 128, 129, 195 


,119 
3740 RETURN 

S7AS HAE 
3747 ‘4 + 
3750 ‘* DECORS No 2  +# 
3752 ‘4 x 
3755 HF 
3760 INK 7,0: INK 9,0 


3776 INK 8,4 

3786 FOR i=30 TO 379 STEP 2:MOVE i,64:DR 
AW 199,150,9:NEXT i 

3705 INK 9,11 

3796 FOR i=6 TO 329 STEP 2: MOVE i,64:DRA 
W 4,150,8:NEXT i 

3795 FOR i=56 TO 650 STEF 
AN 350,195,8:NEXT i 

3809 FOR i=250 TO 680 STEP 2:MOVE i,64:D 
RAK 9590,145,B8:NEXT i 

3802 INK 8,13 

3819 FOR i=0 TO 149 STEF 2:MOVE i,64:DRA 
W 96,160,7:NEXT i 

3815 FOR 1=39 TO 179 STEP 2:MOVE i,64:DR 
AW 126,156,7:NEXT i 

3826 FOR i=70 TO 254 STEP 2:MOVE i,64:DR 
AW 175,130,7:NEXT i 

3822 INK 7,19 

3825 FOR 1=404 TO 550 STEF 2: MOVE i,64:D 
RAW 435,196, 1:NEXT i 

3836 FOR i=430 TO 544 STEP 2:MOVE i,64:D 
RAW 590,140, 1:NEXT : 

3849 FOR i=490 TO 640 STEP 2:MQVE i, ba: D 
RAW 69ÿ,169,1:NEXT 

3866 RETURN 

3879 ‘ presentation 

3075 HIHI 

3896 GOSUB 2626 

3906 PEN 3:LOCATE 2,4:PRINT CHR$ (225) +CH 
R$(226):FEN 4:LOCATE 5,4:PRINT'VOTRE VAI 
SSEAU" 

3919 PEN Z:LOCATE 9,8:PRINT CHR$ (227) +CH 
R$ (228) +CHR$ (229) :LOCATE 2,10:FEN 1:PRIN 
T'ier VAGUE ENNEMIE" 

3924 PEN Z:LOCATE 9,13:PRINT CHR$(236)+C 
HR$ (231)+CHR$ (232) :LOCATE 2,15:PEN 1:FRI 
NT'2eme VAGUE ENNEMIE" 

3939 PEN 2:LOCATE 9,18:PRINT CHR$ (233) +C 
HR$ (234) +CHR$ (235) : LOCATE 2,26:PEN 1:FRI 


2:MOVE i,64:DR 


NT“3eme VAGUE ENNEMIE" 

3940 RESTORE 4585:FOR 1=1 TO 46:READ Si, 
g2 

3943 SOUND 3,51,6,0,4,0:SOUND 4,52,0,0,4 
Û 

3 

3945 NEXT I 

3950 SOUND 4,409,0,, 4, @:MINDON #1,2, 19, 
2,20:PEN 0:CLS#1:SOUND 4,409,6,9, 4,0 
3960 PEN 2:LOCATE 9,8:PRINT CHRS (236) +CH 
R$(237):LOCATE 2, 10:PEN 1:PRINT"4eme VAG 
UE ENNEMIE" 

3965 FOR 1=1 TO 10: SOUND 1,400,0,0, 4,0 
3967 NEXT I 

3970 FOR i=6 TO 1600 STEF 2:NEXT i:PEN © 
:CLSH1 

3980 LOCATE 2,4:PEN 2:PRINT"VOTRE BUT ES 
T" 

3990 LOCATE 2,6:PRINT"DE DELIVRER LA " 
4000 LOCATE 2,B:PRINT"PLANETE OMEGA" 
4010 LOCATE. 2,16:PRINT'MAIS SES TYRANS " 
4024 LOCATE 2,12:PRINT'N'Y TIENNENT PAS. 


4030 LOCATE 2,15:PRINT"AUSSI DEVREZ VOUS 


4040 LOCATE 2,18:PRINT'LUTTER D'UNE FACO 
N' 

4050 LOCATE 2,26:PEN 1:PRINT" ACHARNEE. . 

4055 RESTORE 4585:FO0R 1=1 TO 46:READ 51, 
52 

4057 SOUND 4,51,0,0,4,0:SOUND 3,52,0,0,4 
o 

3 

4058 NEXT 1 

4059 FOR 1=1 TO 19:SOUND 1,400,0,0,4,0:N 

EXT I 

4060 CLS# 

4670 PEN 2:LOCATE 2,4:PRINT'LE ler VAISS 
EAU" 

4086 LOCATE 2,6:PRINT"NE TIRE PAS MAIS" 
4090 LOCATE 2,8:PRINT"IL EST ACCOMPAGNE" 

4100 LOCATE 2,19:PRINT"D'UN SATELLITE" 
4110 LOCATE 2,12:PRINT"INDESTRUCTIBLE. 


4115 FOR I=1 TO 23:READ 51,52 
4117 SOUND 4,51,0,0,4,0:SOUND 3,52, 0,0,4 
OENEXT I 

4120 CLS#1 

4130 LOCATE 2,4:PRINT"LE 2eme VAISSEAU" 
4149 LOCATE 2,6:PRINT'NE TIRE PAS MAIS" 
4150 LOCATE 2,8:PRINT"S'IL EST TOUCHE" 
4160 LOCATE 2,10:PRINT"SE TRANSFORME 72? 


4170 FOR I=1 TO 20:READ 51,52 
4175 SOUND 4,51,0,0,4,0:SOUND 2,52,0,0,4 
0 

3 

4177 NEXT I:CLS#i 

4189 LOCATE 2,4:PRINT"LE 3eme VAISSEAU" 
4190 LOCATE 2,6:PRINT'LUI TIRE." 

4260 LOCATE 2,8:PRINT"EN PLUS S'IL EST" 


4210 LOCATE 2, 16:PRINT"TOUCHE IL SE ": 

4220 LOCATE 2,12:PRINT'TRANSFORME 772" 
4230 FOR i=d TO 7000:NEXT i:SOUND 1,400, 

0,0,3,0,2:CLS#1 

4240 LOCATE 2,4:PRINT"LE 4eme VAISSEAU" 

4250 LOCATE 2,6:PRINT"LUI EST PERDU" 
4260 LOCATE 2,8:PRINT"DANS UNE COURSE" 

4270 LOCATE 2, 10:PRINT"FOLLE. . .* 

4280 LOCATE 2, 12:PRINT"TOUCHEZ-LE ?" 

4290 FOR i=© TO 700 STEP 2:NEXT i:SOUND 
3,400,0,0,3,0,3:CLSH1 

4300 LOCATE 2,4:PRINT"SI VOUS VIVEZ " 
4310 LOCATE 2,6:PRINT"JUSQUE-LA, ALORS" 

4320 LOCATE 2,19:PEN 1:PRINTTENTEZ LE T 
ABLEAU" 

4336 :LOCATE 7,12:PRINT"SUIVANT. 

4340 FOR i=d TO 7600:NEXT i:SOUND 4,406, 

0,0,3,0,3:CLS#1 

4359 LOCATE 2,6:PEN 2:PRINT'SURVEILLEZ V 

OTRE" 

4360 LOCATE 2,8:PRINT"ENERGIE VOUS FEREZ 


4374 LOCATE 2,16:PRINT"LE PLEIN " 

4389 LOCATE 2,12:PRINT"DANS UN LABYRINTH 
E" 

4390 LOCATE 2,14:PRINT"DANGEREUX ?7?° 
4406 FOR 1=1 TO 16000:NEXT I:SOUND 3,464 


10,0,3,0,10 

4410 RETURN 

4500 ‘HP 
4502 ‘+ L 
4503 ‘+ MUSIQUE Li 
4505 ‘+ + 
4507 ‘HIHI 


4510 ENV 3,10,8,2,1,11,2,13,-1,2 
4530 ENV 4,16, 15,2 

4585 ‘SOUND 400,0, 400, 0, 490, G, 490, 0, 400, 
0 

4590 DATA 400, 0,490, 0,490, 0, 400,0, 406,0, 
400,50, 400, 37,400, 33, 400, 30, 400,33, 490, 4 
0,400, 0,400, 0,400, 0, 400, 6, 400, 6, 400, 50, 4 
00, 37,400, 33, 400, 30, 400, 33, 400,0, 400, 0,4 
00,0, 400,0, 400,0, 400, 50, 400, 37, 400, 33, 40 
0,30,400, 33, 400, 49, 400, 0, 490,0, 400, D, 400 
,0,400,0,400, 49 

4600 DATA 400, 37,406, 40, 490,50, 400, 50, 40 
0,0,400,0, 400,0, 400, 0, 400,0, 400,50, 400,5 
3,490, 60,400, bb, 400,53, 460, bb, 400, bb, 400 
74,400, 6b, 400, 0, 400, 0, 400,0, 400,0, 400,5 
0,400, 53,400, 6Ô, 400, 66, 400, &b, 400,0, 400, 
0,400, 0,400, 50,409, 53, 400, 6, 490 ;4b 

4610 DATA 400,53, 400, 66, 400, 60, 400, 74,40 
4, 66, 406, 4, 466 ,400,0, 460, 8û 460,74, 460, 8 
0,400, 100, 400, 190,400, 0, 400,0, 400,0, 400, 
0, 400, 0 

4650 RETURN 
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HISTOIRE DE FRANCE 





Educatif 





Michel KADEYAN 


Ce programme d'Histoire qui couvre une période relativement 
longue (de Clovis à Louis-Philippe) va vous permettre de tes- 
ter vos connaissances concernant les souverains qui ont régné 


sur la France. 


} 
FA 


8 
4 
g 
7 
3 
2 
4 
8 
8 
8 
3 
6 
4 
6 
7 


nn anne ne tu ne sn nn cn nn un sn an nu 


. DL EU PO Ce 
Lg 
592 


Par le menu, vous aurez accès à l’un 
des 3 questionnaires et, si vos résultats 
s'avèrent trop décevants, une qua- 
trième option vous donnera l’occasion 
de réviser (ou d'apprendre...). 


Note : 


Le programme accepte les réponses en 


Liste des variables : 


MENUS 
MENU2$ 


D$ 
Nb 
Dates 


Nom de la dynastie 


N1$ 
N2$ 
N3$ 


S$ Surnom du souverain 


Rep$ Réponse 
Score Score: 
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majuscules où en minuscules et le 
numéro associé au nom d'un roi peut 
être entré indifféremment en chiffres 
romains ou arabes. 

Exemple : LOUIS XIII ou louis 13. 
Enfin, le numéro n'est pas obligatoire 
lorsqu'il s’agit du 1e' roi portant ce 
nom. 

Exemple : Clovis | ou CLOVIS. 


Réponses aux menus 


Nombre de souverains de la dynastie 
Dates de début et de fin de règne 


Nom du souverain (différentes possibilités d'écriture) 











19 REMH 26 E RE 


26 REM* # 
39 REM* HISTOIRE DE FRANCE # 
4% REM* *# 
J4 REM* par Michel KADEYAN * 
65 REM* NOVEMBRE 1986 + 


70 REMAHHHNHANENNNENNENHEE 
86 GOSUB 62609 

190 REMX#Y#44MISE EN PAGEXH#HHHRHH 

119 :MODE 1:BORDER 1 

124 WINDOW#, 1,40,6,24 

136 WINDOW#1,6,235,1,2 

149 WINDOW#2,1,5,1,5 

159 WINDOH#:, 36,40, 1,5 

166 WINDOW#4,6,35,3,5 

176 WINDOW#S, 1,49,25,25 

175 :INE 6,6:INE 1,13:INK 2,3: INK 3,1 
184 PAPER#, 1:PAPER#1, 1: PAPER #2, 1: PAPER 
#3, 1: PAPER#4, 1: PAPER#S, 1 

196 CLS#0: CLS#1: CLS#2: CLS#3: CLS#4: CLS#S 
260 PENR2,3:PEN#S,3 

214 LOCATE#1,1,2:PEN#1,2:PRINT#1," H 
ISTOIRE DE FRANCE" 

260 GOSUE 60000 

500 REMIHHHHHHHHNEMENU HER 

516 CLS#:CLS#4:CLS#5: SCORE=0 

929 LOCATE #4,1,3:PEN#4, 2: PRINT#4, " 

MENU " 

930 LOCATE 3,2:PEN G@:FRINT'CHRONOLOGIE D 

ES SOUVERAINS......,.1" 

540 LOCATE 3,5:FRINT"ASSOCIATION REGNE / 
SOUVERAIN. ...2" 

J99 LOCATE 3,8:PRINT "ASSOCIATION SOUVER 

AIN / SURNOM...37" 

564 LOCATE 3,11:PRINT "LISTE DES SOUVERA 


ING. su ssssuoue ..4" 
974 LOCATE 3,14: PRINT °F I N .....,..... 
astres utess 5" 


389 LOCATE 11,17:PRINT'ENTREZ VOTRE CHOI 


x" | 1536 FOR 1=i TO 19 
394 MENUS=INÉEY$: IF MENUS="" THEN 596 1549 RANDOMIZE TIME: X=INT (RND# (71) )+1 
864 MENU=VAL(MENUS) : IF MENU£1 OR MENU:S | 1542 X(I)=X 


THEN 598 1544 FOR T=i TO T-i 

616 ON MENU GOTO 706,1500, 200,260, 4560 | 1546 IF X(I)=X(T) THEN 1546 

ô 1548 NEXT T 

708 REMHHHHEESOUS-MENCEHEEHNEE 1550 RESTORE 56009:FOR z=1 TO x:READ DAT 
714 CLS ES,NIS,N2$,N3$,S$:NEXT z 

724 LOCATE 3,2:PRINT'MEROVINGIENS..... .. | 1569 FEN 9:LOCATE 1,1:PRINT DATES: TAB(1 


js* ," 


739 LOCATE 3,5:PRINT"CAROLINGIENS (dt 3 | 1979 LOCATE 13,1:LINE INPUT REPS:REPS-UP 


CAPETIENS)..,2" PERS (REP$) 

746 LOCATE 3,8:PRINT'CAPETIENS......,,., | 1586 IF REP$="" OR REPSCN1$ AND REPSN 
DCR 2$ AND REPS<>N3$ THEN GOSUB 40006 ELSE G 
750 LOCATE 3,11:PRINT"VALOIS - ORLEANS.. | OSUB 40500 

Merde 4" 1596 NEXT I 


764 LOCATE 3,14:PRINT'BOURBONS - EMPIRE 
- ORLEANS.....5" RE :": SCORE; " sur 19"; 

774 LOCATE 11,17:PRINT"ENTREZ VOTRE CHOI | 1618 SOUND 1,237,12,12:FOR T=1 TO 3000:N 
x" EXT T 

789 MENU2S=INKEYS: IF MENU2$="" THEN 760 | 1626 GOTO 560 

798 MENU2=VAL (MENUZ$) : IF MENU2<1 OR MENU | 2060 REM##ASSOCIATION SOUVERAIN/SURNOM#* 
25 THEN 786 2614 CLS:CLS#4 

849 ON MENU2 GOSUB 814,824, 836, B4û, 056 2626 LOCATE#4, 1,2:PRINT#4," 
845 GOTO 1996 SOUVERAIN/SURNOM" 

810 RESTORE 59010: D$=" 2936 FOR I=1 TO 16 

ENS" :NB=18: RETURN 2646 RANDOMIZE TIME: X=INT (RND# (52) }+19 
820 RESTORE 50196:D$="CAROLINGIENS (dt 3 | 2942 X(I1)=X 

CAPETIENS) “:NB=15: RETURN 2044 FOR T=1 TO I-i 

830. RESTORE 50340:D$=" CAPETIEN | 2946 IF X(I)=X(T) THEN 2040 

S":NB=19: RETURN 2948 NEXT T 

849 RESTORE 56496: D$=" 2959 RESTORE 59900:F0R 2=1 TO X:READ DAT 
EANS ": NB=13: RETURN ES$,N1$,N2$,N3$,S$:NEXT Z 

850 RESTORE 50626:D$="  BOURBONS-EMPIRE.| 2669 IF S$="" THEN 2949 

—ORLEANS": NB=19: RETURN 2076 LOCATE 1,1:PEN @:PRINT Nig;" :" 

885 :END 2689 LOCATE 26,I:LINE INPUT REP$:REP$=UP 

01000 REM#H#HHHH CHRONOLOGIE #46 PERS (REP$) 

1919 CLS:CLS#4 2690 IF REP$="" OR REF$<>S$ THEN GOSUB 4 
1924 LOCATE#A4, 1,2:PEN 2:PRINT#4,D$ 0009 ELSE GOSUB 46500 

1939 FOR 1=1 TO NB:READ DATES, N1S$,N28,N3 | 2196 NEXT I 

$,5$ | 2118 LOCATE#S, 21, 1:PEN#S, 2: PRINTHS, "SCOR 
1946 IF 1=1 THEN A$="FONDATEUR :" ELSE A | E :":SCORE;" sur 10" 

$="SUCCESSEUR: " 2126 SOUND 1,237,12,12:FOR T=1 TD 3090:N 
1954 PEN O:LOCATE 1,1:PRINT A$ EXTT 

1960 LOCATE 13,I:LINE INPUT REP$ 2136 GOTO 500 

1979 REP$=UPPERS (REP$) 2000 REMk##4LISTE DES SOUVERAINS### 

1989 IF REP$="" OR REP$SCN1$ AND REP$£EN | 3010 d=6:GOSUB 810 

24 AND REF$CN3$ THEN GOSUB 46690 ELSE G | 3929 CLS:CLS#4:CLS#S 
OSUB 49500 3036 LOCATE#4, 1, 2:PRINT#4,D$ 

1999 NEXT I 3646 FOR 1=1 TO NB:READ date$,n1$,n2$,n3 
1190 LOCATEAS, 12, 1: PEN#S, 2: PRINTHS, "SCOR | $,5$ 

E :";SCORE;" sur "NB; 3059 IF S$£>"" THEN GOTO 3070 

1119 SOUND 1,239,12,12: FOR T=1 TO 3600: | 3660 LOCATE 1,1:PEN G:PRINT DATES: TAB(10 
NEXT T }s":"sTAË(12) ;Ni$:GOTO 3080 

1120 GOTO 506 3974 LOCATE 1,1:PEN 0:FRINT DATES: TAB(10 
1509 REM##ASSOCIATION REGNE/SOUVERAIN## | );":"3:TAB(12);N1$5", "535$ 

1514 CLS:CLS#4 3980 NEXT I 

1529 LOCATE#4,1,2:FRINT#4, 3099 LOCATE#S, 19, 1: PENKS, 2: PRINT#S, "APPU 
N REBNE/SOUVERAIN" YEZ SUR UNE TOUCHE" 


1666 LOCATE #5,15,1:PEN#5, 2: PRINT#5, "SCO 


ASSOCIATION 


MEROVINGI { 


VALOIS-ORL 


ASSOCIATIO 


3100 T$=INKEYS: IF T$="" THEN 3100 


3116 d=d+i 
3129 IF d=5 GOTO 560 
3136 ON d GOSUB 826,830, 840,856 
3146 GOTO 3920 
3150 GOTO 566 
460900 REMX##4444 RÉPONSE FAUSSE 44H64 
40016 FOR K=1 TD 19: SOUND 1,109, 12,12: 
BORDER 6:FOR Ki=1 TO 59:NEXT K1:BORDER 2 
4:NEXT K: BORDER 1 
40026 ON MENU GOTO 49100,49190, 49200 
46100 LOCATE 13,I:PRINT SPACES(2B):PEN 2 
:LOCATE 13,1: PRINT NI$:LOCATE 39, I: PRINT 
9": RETURN 
492906 LOCATE 26,1:PRINT SPACES$ (21): PEN 2 
:LOCATE 29,I:PRINT S$:LOCATE 39,I:PRINT" 
9": RETURN 
49500 REMX#H#H#4H6 REPONSE JUSTE #44 
49516 FOR K=1 TO 5:SOUND 1,297,12,12:NEX 
T K:LOCATE 39,I:PEN 2:PRINT "{":SCORE=SC 
ORE+1: RETURN È 
45000 REMIHHHHHHHE FOI NO HN 
45019 END 
90000 REM ####4 LISTE DES DATAS ##+#4 
90416 DATA 481-511,CLOVIS I,CLOVIS 1,CLO 
VIS, 
96924 DATA 511-558, CHILDEBERT I,CHILDEBE 
RT 1,CHILDEBERT, 
96636 DATA 558-561,CLOTAIRE I,CLOTAIRE 1 
,CLOTAIRE, 
90646 DATA 561-567,CARIBERT I,CARIBERT 1 
,CARIBERT, 
50056 DATA 567-584,CHILPERIC I,CHILPERIC 
1,CHILPERIC, 
90060 DATA 584-628, CLOTAIRE II,CLOTAIRE 
ss , 
90070 DATA 628-638, DAGOBERT 1,DAGOBERT 1 
,DAGOBERT, 
99080 DATA 638-656,CLOVIS IT,CLOVIS 2,, 
50090 DATA 656-670,CLOTAIRE I11,CLOTAIRE 
s à 

944 
59100 DATA 676-673,CHILDERIC II,CHILDERI 
C2, 
59110 DATA 673-691,THIERRY I,THIERRY 1,7 
HIERRY, 
59120 DATA 691-695,CLOVIS III,CLOVIS 3,, 
59130 DATA 695-711,CHILDEBERT III,CHILDE 
BERT &3,, 
59149 DATA 711-715,DAGOBERT II, DAGOBERT 
243 
54159 DATA 717-719,CLOTAIRE IV,CLOTAIRE 
4 
59160 DATA 715-729,CHILPERIC I1,CHILPERI 
C2 
59170 DATA 720-737,THIERRY II,THIERRY 2, 


1 
59186 DATA 742-752, CHILPERIC III, CHILPER 


IL, 
50190 DATA 752-768, PEPIN-LE-BREF, PEPIN L 
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E BREF,PEPIN, 

50200 DATA 768-814, CHARLEMAGNE, CHARLES 1 
CHARLES 1, 

56219 DATA 814-849, LOUIS 1,LOUIS 1, LOUIS 
LE DEBONNAIRE 

50229 DATA 840-877, CHARLES II, CHARLES 2, 
LE CHAUVE 

56230 DATA 877-879, LOUIS I1,LOUIS ?, ,LE 
BEGUE 

50249 DATA 879-882, LOUIS III,LOUIS 3,, 
56250 DATA 882-884, CARLOMAN,, , 

50260 DATA 884-888, CHARLES II, CHARLES ?, 


1 

59274 DATA 888-898,EUDES (CAPETIEN) ,EUDE 

S I,EUDES, 

56280 DATA 898-922, CHARLES 111, CHARLES 3 
LE SIMPLE 

56290 DATA 922-923, ROBERT L (CAPETIEN),R 

OBERT I, ROBERT, 

56300 DATA 923-936,RAOUL (CAPETIEN) ,RAOU 

L I,RAOUL, 

50319 DATA 936-954, LOUIS IV,LOUIS 4,,D'0 

UTRE-MER 

5320 DATA 954-986, LOTHAIRE,, , 

56336 DATA 986-987, LOUIS V, LOUIS 5,,LE F 

AINEANT 

50340 DATA 987-996, HUGUES CAPET,, , 

56250 DATA 994-1031,ROBERT II,ROBERT-2,, 

56360 DATA 1031-1060,HENRI I,HENRI 1,HEN 

RI, 

56370 DATA 1060-1108, PHILIPPE I, PHILIPPE 
1,PHILIPPE, 

56380 DATA 1198-1137, LOUIS VI, LOUIS 6,,L 

E GROS 

50396 DATA 1137-1180, LOUIS VII,LOUIS 7,, 

LE JEUNE 

56460 DATA 1180-1223,PHILIPPE 11,PHILIPP 

E 2, , AUGUSTE 

50416 DATA 1223-1226, LOUIS VIII, LOUIS 8, 
LE LION 

50426 DATA 1226-1279, LOUIS IX, LOUIS 9,,5 

AINT LOUIS 

50436 DATA 1270-1285,PHILIPPE 111,PHILIP 

PE 3,,LE HARDI 

56440 DATA 1285-1314,PHILIPPE IV, PHILIPP 

E 4,,LE BEL 

56450 DATA 1314-1316,LOUIS X, LOUIS 16,,L 
E HUTIN 

50460 DATA 1316, JEAN I, JEAN 1,JEAN,LE PO 
STHUME 

50476 DATA 1314-1322, PHILIPPE V, PHILIPPE 
5, ,LE LONG 

50480 DATA 1322-1328, CHARLES IV, CHARLES 
4,,LE BEL 

56499 DATA 1328-1350,PHILIPPE VI,PHILIPP 
E6;, 

50560 DATA 1354-1364, JEAN II, JEAN 2, ,LE 
BON 

56510 DATA 1364-1380, CHARLES V, CHARLES 5 
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-,,LE SAGE 


4 

50520 DATA 1389-1422,CHARLES VI, CHARLES 

6,,LE FOL 

50530 DATA 1422-1461,CHARLES VII, CHARLES 
7,,LE VICTORIEUX | 

50540 DATA 1461-1483,LOUIS XI, LOUIS 11,, 

50550 DATA 1483-1498, CHARLES VIII, CHARLE 

5 8,, 

56560 DATA 1498-1515, LOUIS XII,LOUIS 12, 
LE PERE DU PEUPLE 

50579 DATA 1515-1547,FRANCOIS I, FRANCOIS 
1, FRANCOIS, 

50580 DATA 1547-1559,HENRI II,HENRI 2,, 

50599 DATA 1559-1560, FRANCOIS 11,FRANCOI 

Ë) 2, 

50606 DATA 1569-1574,CHARLES IX, CHARLES 

ss 

50610 DATA 1574-1589,HENRI ILI,HENRI 3,, 

50620 DATA 1589-1619,HENRI IV,HENRI 4,,L 

E GRAND | 

50639 DATA 1610-1643, LOUIS XIII, LOUIS 13 
LE JUSTE 

50649 DATA 1643-1715, LOUIS XIV, LOUIS 14, 
LE ROI SOLEIL 

50650 DATA 1715-1774,LOUIS XV,LOUIS 15,, 

LE BIEN AIME 

Sûb6® DATA 1774-1793,LOUIS XVI, LOUIS 16, 


U 
90674 DATA 1793-1795,LOUIS XVII, LOUIS 17 


LE] 

50680 DATA 1804-1814, NAPOLEON I, NAPOLEON 
1,NAPOLEON, 

50490 DATA 1814-1824, LOUIS XVIII, LOUIS 1 

8, ,LE DESIRE 

56700 DATA 1824-1830, CHARLES X, CHARLES 1 

0,, 

5710 DATA 1830-1848, LOUIS-PHILIPPE I,LO 

UIS-PHILIPPE 1,LOUIS-PHILIPFE, 

60000 REM#txe4 DESSIN FLEUR DE LYS ##44 

60010 SYMBOL AFTER 220 

60020 SYMBOL 220,0, 16,56,60, 126, 126,255, 

255 

b0030 SYMBOL 221,9,0,0,0,0,0, 1,7 

bo04o SYMBOL 222,1,3,3,3,7,7,199, 231 

L00S0 SYMBOL 223,255, 255, 255, 255, 255, 255 
,255,255 

LODEA SYMBOL 224,128, 192, 192, 192, 224, 224 
,227,23 

LO07D SYMBOL 225,0,0,0,0,0,0, 128, 224 

booBe SYMROL 226,15,31,31,63,63, 126, 96, 

4 

49090 SYMBOL 

,6û,30 

49100 SYMEOL 
,255, 190 

6110 SYMBOL 

60, 129 

69120 SYMBOL 

s6,2 


227,231, 243, 251,251, 249, 124 
228,255, 255, 255, 255, 255, 255 
229, 221, 207,223, 223, 199, 62, 


230,249, 248, 248,252, 124, 126 


60130 SYMBOL 231,14,15,15,15,15,14,14,28 
60149 SYMBOL 232,126,126,255, 255, 235, 235 
5299, 299 

60150 SYMBOL 233,112,24%,240,240,246, 112 
112,956 

66166 SYMBOL 234,249,249,243,115,7,7,6,0 
60170 SYMBOL 235,255, 295, 299, 299, 299, 299 
59,9 

60180 SYMBOL 236,159,199,27,206,234,224 
9,9 

b190û ‘DESSIN 

61914 LOCATE#2, 1, 1:PRINTH#2,CHR& (32) ;CHR$ 
(32) 3 CHR$ (220) : CHR$ (32) ; CHR$ (32) 

61924 LOCATE#?, 1,2:PRINT#2,CHR& (221) ; CHR 
$ (222) ; CHR$ (223) ;CHR# (224) ; CHR$ (225) 
51934 LOCATE#2, 1,3: PRINT#2,CHRS$ (226) ; CHR 
$(227) ; CHR$ (228) ; CHR$ (229) ; CHR$ (230) 
61649 LOCATE#2, 1,4: PRINT#2,CHR$ (321 ; CHR$ 
(231); CHR$ (2232) ; CHR$ (233) : CHR$ (32) 

61658 LOCATE#2, 1,5:FRINT#2,CHRS$ (32) ;CHR$ 
(234) ; CHR$ (235) ; CHR$ (236) ; CHR$ (32) ; 
61666 LOCATE#S, 1, 1: PRINT#3, CHR$ (321 ;CHR$ 
(32) ; CHR$ (220) ; CHR$ (32) ; CHR$ (32) 

61970 LOCATE#S, 1,2:PRINT#3,CHR$ (221) ; CHR 
$ (222) ;CHR$ (223) ; CHR$ (224) : CHR$ (Z2S 
61980 LOCATE#S, 1,3: PRINT#3, CHR$ (226) ; CHR 
$ (227) ;CHR$ (228) : CHR$ (229) : CHR# (276) 
41990 LOCATE#S, 1,4:PRINTH3, CHR$ (32) : CHR$ 
(231): CHR$ (232) ; CHR$ (233) ; CHR# (32) 

61100 LOCATE#S, 1,5: PRINT#3, CHR$ (32) ;CHR$ 
(234) ; CHR$ (235) ; CHR$ (236) : CHR$ (32) ; 
61119 RETURN ° 
62000 REM#H###HH4 PRESENTATION X 
62019 MODE 0: INK 0,20:INE 1,2:INK 2,6:IN 
K 3,4 

62020 PAPER @:BORDER 11 

62020 PEN 1:LOCATE 7,6:PRINT"'HISTOIRE" 
62049 LOCATE 19,9:PRINT"DE" 

62050 LOCATE 8,12: PRINT"FRANCE" 

62066 PEN 2:LOCATE 6,15:PRINT" (481-1848) 


62474 PEN 3:LOCATE 2,23:PRINT"par Michel 
KADEYAN": 

63000 REMXH#H#HH6HMUS I QUE #36 
63010 .RESTORE 64840:FDR T=1 TO 53 

632% READ NO,DU 

63036 SOUND 1,N0,DU/2 

63649 NEXT T 

64900 DATA 190,30,169,236,199,30,169,3û,1 
99,20,0,230,127,30,0,30,127,30,0,30,142,3 
9,9,20,159,60,169,60, 190,36, 169,30,159,5 

6,142,26,127,230,0,26,95,30,0,1û, 196,66, 9 
5,64,84,120,0, 66 

64916 DATA 196,34,169,34,1959,34,169,30, 1 
96,30,0,30,127,20,4,230,127,30,0,36,142,3 
9,4,28,159,66, 169,65, 198,236, 169,30,159,3 
0,142,30,127,30,0,30,95,30,0,36,100,38,9 

5.,20,84,30,106,36,95,126 

64024 FOR T=1 TO 1S46:NEXT T: RETURN 
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PHRASE CACHEE 


James Bond 007, vous connais- 
sez ? L'espion au service de sa 
Majesté est bien sûr aussi célèbre 
que Margaret Thatcher. Mais en 
France, nous avons Gaston l'agent 
de la DST et celui-ci est aussi très 
efficace. 


Sa mission : découvrir les messages 
codés envoyés par des espions à la 
solde d'une puissance étrangère. 

Le lieu : un immeuble truffé de télépho- 
nes et d’'ascenseurs. 

Les messages secrets se trouvent en 
clair dans le programme, alors ne tri- 
chez pas : tapez le listing les yeux fer- 
més | 


OR ET EST ESS ESS ESS SS TS ESS ESS SSI. 


+ 4 
# GASTON Ÿ À L'TELEFON QUI SON + 
* # 
2% ‘# gilles GUIGON MARS 1987 # 
# 4 
+ pour CPC 464 * 
+ # 


AE 
34 ON BREAK GOSUB 7744 
46 SPEED KEY 10,7 
56 GYMEOL AFTER 32 
&à MODE 6 
74 LOCATE Z,7:PRINT'F ATIENTE 7" 
8& LOCATE 4,13:PRINT". 5, V, F ." 
9% FOR I=1 TO 2046:NEXT 
199 GOTO 2966:REM mise en page 
LA AHEEAEAPEEENPEEOPHPEHE 


* * 
# REDEFINITION DE GASTON * 
* * 


AE OPEN 
129 SYMBOL 196,66,126,231,219,219,66, 126 
.126:" telephone 


efface 








Jeux 





= 
= 
& 
= 
= 


'HHIIE 


LA HAE 


+ L 
* bonhomme marche vers la droite * 
# + 


A A EEE 

154 SYMEOL 66,60, 126, 60,52, 62, 64, 24, 66 

166 SYMEOL 67,126,126,247,251,60,118,116 

117 

17 SYMEOL 68,6,128,64,0,128,0,0,4 

186 SYMEOL 69,128,128,128,128,84,0,0,0 

196 SYMEOL 74,15,31,19,13,15,15,6,15 

266 SYMBOL 71,27,27,27,29,15,6,6,7 

214 SYMEOL 72,192,224,192,64,224,192,128 

192 

220 SYMEOL 75,224,224,112,176,192,96, 234 

,112 

234 SYMEOL 74,3,7,3,3,3,3,1,3 

24ù SYMEOL 75,7,7,15,15,3,7,8,7 

296 SYMEOL 76,246,248,246,208,246,244,96 

24 

266 SYMEOL 77,248,252,254,246,249,218,14 

148 

274 SYMEOL 78,6,1,0,0,6,4,6,6 

286 SYMEOL 79,1,3,7,6,8,1,3,5 

209 AE 
*# # 
* bonhomme marche vers ia gauche # 
+ + 
#4 HER 

360 SYMEOL 86,66, 126,66,44, 124,60, 24,60 

314 SYMEOL 81,126,126,239,227, 66, 118,118 

238 

326 SYMBOL 82,240,248,240, 176,244, 244,96 

244 

339 SYMEOL 83,216,216,216,184,240,96,96, 

ia) 

340 SYMBOL 84,6,1,4,6,6,4,6,0 

356 SYMBOL 85,1,1,1,1,6,4,4,4 

366 SYMBOL 86,192,224,192,192,192,192.12 

8,192 

376 SYMEOL 87,224,224,246,24û,192,224,96 


,224 








386 SYMBOL 88,3,7,3,2,7,3,1,3 
396 SYMEOL 86,7,7,14,17,3,6,7,14 


416 SYMEOL 91,128,192,224,0,6,128, 192,19 


426 SYMBOL 92,15,31,15,11,31,15,6,15 

39 SYMBOL 93,21,63,127,111,21,91,112,49 
44û DIM d$(4,2),9$ (4,2) 

458 d$ (1, L)=CHRS (66) +CHR$ (65) : d$ (1, 2) =CH 
RS (67) +CHRS (65) 

4bû d$(2, 1)=CHR$ (70)+CHR$ (68) : d$ (2, 2) =CH 
RS (71) +CHRS (69) 

476 d$i3, 1)=CHRS (74) +CHR$ (72) 
R$ (75) +CHR$ (72) 

486 d$ (4, L)=CHRS (78) +CHR$ (76) 
RS 79) +CHR$ (77) 

49ù a$ 01, Li=CHRS (65) +CHRS (6) 
RS (65) +CHR$ (81) 

Soû g$ (2, L)=CHRS (84) + CHR (82) 
R$ 85) 4CHR$ (ET) 


:d$(3,2)=CH 
:d$ 4,2) =CH 
19$(1,2)=CH 


:19$(2,2)=CH 


319 g$(03,11=CHR$ (88) +CHR$ (86) : q$ (3, 21 =CH 

R$(86):+CHR$ 187} 

J26 g$(4,1)=CHR$ (92) +CHR# (90) :q$ (4,21 =CH 

R$(9Z)+CHR# (91; 

SA APP EEOEEE 
+ * 
# presentation # 
L * 


AD A DA D A 
540 BORDER 1:INE 15,11:INE 14,12: INE 13, 
Z3:INE 12,14:INE 11,1:INE 164,15:INE 9,24 
GS INE 8,0,6:INE 7,9:INE 8,19:INE 5.6: IN 
E 2, 18:INE 1,26: INE 6,ù 
504 HINDOW#4,1,20,1,26 
56% TEXT$="PHRAGE CACHEE":TA=3: TY221: PEN 
g:GOSUE 473à 
576 WINDOW#O,2,13,11,17 
54 TEXTES="K POUR  REGLE DU JEU 

J FOUR JOUER * 
598 T{=i:TY=1:PEN Z:GOSUE 4646 
bé WHILE INÉEY$<:"":HEND: CALL &BB46 
üié que$=INÉEY#:IF que$="" THEN 61ë 
624 IF queg="]J" OR que$="j" THEN GOTO 96 
à 
ë36 CLS 
644 HINDOW#S, 1,26,7,19 
654 text$="REGLES OÙ JEU‘: TX=4:TY=2:FEN 
2:G60SUB 4734 
66% TEXT$="ENFONCEZ UNE TOUCHE":PEN 4:Tx 
23: TY=13:G0SUE 4738 
&7à WINDOW#,2,13,11,17 
684 TEXTES="EXPLICATION DES TABLEAUX" 
696 TK=1:TY=4: PEN S:GO0SUE 4646: GOSUB 776 
E] 
766 TEXTES="VOUS REMARQUEZ À DROITE DOUZ 
E LIGNES DE QUATRE RANGEES  C EST LE 
PLANDE L IMMEUBLE CHAQUE DESST 
N REPRESENTEUNE DES TROIS VARIETES DE F 
IECES" 
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716 TX=1:TY=1:PEN 3:G0SUB 4640:G60SUB 776 


ô 
724 TEXTES$="EXEMPLES 
ES SANS AGCENSEUR 
PIECES AVEC ASCENSEUR MONTANT 
PIÈCES AVEC ASCENSEUR 


PIEC 


DESC 
ENDANT 
730 TX=1:TY=1:GOSUB 4649 
748 LOCATE 8,3:PEN 6:PRINT CHR$ (135); 
756 LOCATE 8,5:PRINT CHR$ (123) 
764 LOCATE 8,7:PRINT CHR$(126) :GOSUB 776 
(] ; 
770 TEXTES="LE CADRE MARQUE AVEC CONTI 
ENDRA LE NOMBRE DE VIES À VOTRE ACTIF 
LE CADRE AU DESSUS SE PASSE DE COMM 
ENTAIRES LE CADRE DU BAS CONTIENTLA FH 
RASE À DECOUVRIR" 
784 T{=1:TY=1:PEN 3:G0SUB 4646:G60SUB 776 
() 
79% TEXTE$=" DEROULEMENT DU JEU" 
866 T\=1:TY=4:PEN 6:GOSUR 4646:GO0SUB 776 
9 5 
816 TEXTE$="VOUS ETES GASTON LESPIONAGEN 
T DE LA DST DES INFORMATIONS SUR 
TENTDE FRANCE GRACE À UNE TAUPE ET VOU 
5 DEVEZ INTERCEPTER CES FUITES" 
820 TX=1:TY=1:PEN 3:60SUB 4649:G0SUB 776 
4 
830 TEXTE$="COMME LES ESPIONS SONT DES 
GENS MEFIANTS ILS NETRANSMETTENT LES DOC 
5 QUE LETTRE PAR LETTRE ETJAMAIS DEUX 
FOIS AU MEME TELEFON" 
840 T\=1:TY=1:PEN 3:G0SUB 4640:GO0SUB 776 
) 
650 TEXTE$="VOUS DEVEZ DONC ALLER D UN 
TELEFON À L AUTRE POUR VOUS SITUER DAN 
S LEPLAN SUIVEZ LE POINT BLANC LES 
POINTS VERTSVQUS SERVIRONT AUSSI" 
864 T{=1:TY=1:PEN 3:G0SUB 4640:G60SUB 776 
9 
870 TEXTES=" QUELQUES CONSEILS" 
886 T{=2:TY=4:PEN 6:G60SUB 4640: G0SUB 776 
C 
899 TEXTE$="POUR VOUS DEPLACER UTIL 
ISEZ LES FLECHES DU CURSEUR DROITE ET GA 
UCHEET COPY FOUR SAUTER POUR REPONDR 
E AU TELEFONIL FAUT VOUS PLACER DESS 
US ET LE BIP SARRETE" 
900 T\=1:TY=1:PEN 3:GOSUB 4640:G0SUB 776 
9 
919 TEXTES="MORMALEMENT UNE LETTRE IRA 
S AFFICHER DANS LE CADRE DU BAS SAUF S 
IL S AGIT D UN ESPACE" 
926 TX=1:TY=1:PEN 3:G60SUB 4649:60SUB 776 
Q 
939 TEXTE$="SI VOUS VOULEZ ALLER À LA P 
IECE VOISINE ET QUUNASCENSEUR VOUS OBLIG 
E À MONTER OU À DESCENDRE  SAUTEZ POUR 
L EVITER ENENFONCANT LA TOUCHE COPYAVEC 
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LA FLECHE DIRECTION" 

940 TX=f:TY=1:PEN 3:GOSUB 4649:G0SUB 776 
[ 

950 HN 


# # 
+ FIN DE LA PRESENTATION # 
+ 4 


AE 
960 EVERY 190,1 GOSUB 7498 
970 REM 
986 PEN #4,1 
990 INK 1,26 
1909 PRINT#4, STRINGS (4, 66) ; 
1916 PRINT#4,STRINGS (4,67); 
1926 FOR cam=0 TO 3 
1939 xcam(cam)=0 
1949 ycam(cam)=-19 
1956 NEXT cam 
106 vies=S 
1070 WINDOW#O, 1,14,7,19:CLS 
1980 qpa=b: gpo=2 
1999 a=526:b=84 
1198 ORIGIN 1,129 
1119 x=XPOS: y=YP0S 
1126 PRINT CHR$(22)+CHR$ (0) ; 
1136 CLS:PRINT CHR$ (23) +CHR$ (0) ; 
1140 temps=490 
1150 FLOT 144,246,12:DRAWR 252,0 
1169 ON gaston(gpa,gpo) GOSUB 5570,5618, 
9690,5690,5730,5770,5810,5860, 6010, 6050, 
6200,6249,4910,5270,5370,5470 
1170 PEN 1 
1180 n=1 
1190 SPEED KEY 1,1 
1200 PRINT CHR$(23)+CHR$ (1) ; 
1219 TAG 
1220 x=x+32:y=y+16 
1230 d=1: 
1240 GOSUB 1899 
1250? HHIEHENEEEHEEHENNEHEHEHE 


4 4 
* BOUCLE DEPLACEMENTS 4 
4 4 
AH 
1260 te=0 
1270 IF tie=0 AND times=200 THEN GOTO 71 


00 

1280 IF condi=i THEN GOSUB 1940:G60T0 242 
[) 

1290 IF INKEY(9)=0 THEN GOTO 1940 

1309 IF INKEY(8)=0 THEN GOTO 1619 

1319 IF INKEY(1)=0 THEN GOTO 1330 

1320 6070 1276 

1330 HIHI 


4 4 
# GASTON MARCHE VERS LA DROITE +# 
4 # 


HE EEEBHEHHHEHREE 
1340 


1359 IF nt(gpa,gpo)=1 THEN INK 8,6:h=REM 
AIN (6) 

1360 IF x€376 THEN GOTO 1430 

1379 IF NOT (gaston(gpa,gpo)>3 AND gasto 
n(gpa,gpo)<{13) THEN GOTO 1410 


‘1380 IF y=112 THEN G0SUB 1899:b=b-8:y=1: 


x=328:G60T0 1229 

1390 IF gpa=12 THEN GOSUB 1890:G0T0 2670 
1409 GOSUB 1890: gpa=gpa+1:b=b-8: y=96: x=3 
28: TAGOFF:G60SUB 6280: G0T0 1130 

1419 IF gpo=4 THEN GOSUB 1890:G0T0 2670 

1426 GOSUB 1890: gpo=gpoti:a=at32: x=1: y=y 
-16:TAGOFF:GOSUB 6280:G0T0 1130 

1439 IF y<112 THEN GOTO 150 

1440 IF tex=12 THEN 1490 

1450 IF TEST(x+30+(n#10),y-12) €>8 OR nt 
gpa,gpo) THEN 1490 

1469 nt(gpa,gpo)=1:60SUB 6700 

1470 INK 8,6 

1489 tel=ASC (nt$ (gpa,gpo)}-32 

1490 IF TEST(x+39+(N#5) ,y-36)=0 THEN 605 
UB 1890:G60T0 249û ELSE 1560 

1509 IF x<300 AND TEST(x+60,y) 0 THEN G 
OSUB 1890:G60T0 1590 

1519 IF tex=b THEN 1568 

1520 IF TEST(x+30+(n#10),y-12)€28 OR nt 
gpa,gpo) THEN 1560 

1530 tel=ASC (nt$ (gpa, gpo))-32 

1549 nt (gpa,gpo)=1:G0SUB 4700 

155% INK 8,6 

1569 GOSUB 1890 

1579 N=N+1:1F N=5 THEN N=i:x=x+24 

1580 D=1:X=X+8 

1590 GOSUB 1890 

1609 GOTD 1270 

1610 “HEAR 


* # 
# GASTON MARCHE VERS LA GAUCHE # 
+ * 


PÉPPTES SECTE CET LI SES CE LESC ESC 
1620 ‘ 
1630 IF nt(gpa,gpoi=1 THEN INK 8,6:h=REM 
AIN(@) 
1649 IF x>16 THEN GOTO 1710 
1659 IF NOT((gaston(gpa,gpo)<4) OR (gast 
on (gpa,gpo)>6 AND gaston(gpa, gpo){13)) T 
HEN GOTD 1690 
1669 IF y<112 THEN GOSUB 1890:b=b+8:y=96 
:x=1:G0T0 1220 
1679 IF gpa=i THEN GOSUB 1890:G0T0 2670 
1689 GOSUB 1890: gpa=gpa-1:b=b+B:y=1:x=1: 
TAGOFF:GOSUB 6289:G60T0 1130 
1690 IF gpo=i THEN GOSUB 1890:G0T0 2670 
1700 GOSUB 1890:gpa=gpo-1:a=a-32: y=y-16: 
x=328: TAGOFF:GOSUB 62B0:G60T0 1130 
1719 IF y<112 THEN G0TO 1780 
1720 IF tex=12 THEN 1770 
1736 IF TEST(x+39-(n#10),y-12)€>8 OR nt 
gpa.gpo) THEN 1770 


1746 tel=ASC(nt$ (gpa, gpo) ) -32 
1756 nt(gpa.gpo)=1:60SUB 6766 
1769 INE 8,6 
1776 IF TEST(x+42-(N#5) ,y-38)=0 THEN 605 
UE 1894:G0T0 2400 
1780 IF x>76 AND TEST(x,y)<:6 THEN GOSUB 
1894: G0TO 1876 
1794 IF tex=b THEN 1840 
1846 IF TEST(:+30-(n#16),v-12)€58 OR nt{ 
gpa.gpo) THEN 1840 
1919 nt(qpa,gpoi=1:G0SUB 6709 
1824 INE 8,6: 
1834 tel=ASC (nt$ (gpa, gpo)) -32 
1846 GOSUE 1894 
1854 N=N+{:IF N=5 THEN N=iix=x-24 
1géé D=4: X=1-8 
1876 GOSUE 1896 
1884 GOTO 1276 
1800 NAN 
# 
EFFACE et AFFICHE # 
LA POSITION ACTUELLE DE GASTON * 
4 
APE 
1996 IF temps-142€=0 THEN GOTO 1948 
1919 tenps=temps-2 
1926 IF temps/4<>INT(temps/4) THEN GOTO 
1944. 
1936 FLOT temps, 246, 12 
1946 IF D=1 THEN DI:PLOT a,b,1:MOVE X,Y: 
PRINT D$(N,1)5;:MOVE X,Y-16:PRINT D$(N,2) 
32 EI:RETURN s 
1958 DI:PLOT a,b,1:MOVE X,Y:PRINT G$(N, 1 
32MOVE X,Y-16:PRINT G$(N,2) ;:EI: RETURN 
196 AAA 


+ + * 


+ + 
L GASTON SAUTE L 
# + 
ABB 


1970 ‘ 

1980 IF INKEY(1)=Q THEN t=+12:60T0 2626 

1998 IF INKEY(8)=0 THEN T=-12:60T0 221ÿ 

2699 T=Q 

2614 IF d=Q THEN GOTO 2219 

2029 IF y=1i2 THEN GOTO 2949 

2636 IF x<300 THEN IF t=9 THEN GOTO 1270 
ELSE t=-12:G0T0 1270 

2649 FOR I=1 TO 4 

2650 GOSUB 1890 

2666 SOUND 1,156-y, 1,4 

2079 D=1:Y=Y+4: X=X+T 

2984 GOSUE 1894 

2099 NEXT I 

2106 IF x£376 THEN GOTO 2140 

2116 GOSUB 1894 

2126 IF gpo=4 THEN GOTO 2670 

2130 gpo=gpotlia=at32ix={sy=y-32: TAGOFF: 
GOSUE 6284:G60T0 1136 

2146 FOR I=i TO 4 


2156 GOSUE 1895 

2168 SOUND 1,156-y,1,5 

217 D=1:Y=V-4: X=X+T 

2186 GOSUE 1899 

219% NEXT i 

2269 GOTO 1279 

221% IF y=112 THEN 60TO 2230 

2224 IF x>70 THEN IF t=ù THEN GOTO 1270 

ELSE t=+12:60T0 1270 

2230 FOR i=1 T0 4 

2249 GOSUB 1890 

2256 SOUND 1,15%-y,1,5 

2260 d=0:y=y+4sx=xtt 

2270 GOSUB 1899 

2280 NEXT i 

2290 IF x>1 THEN GOTO 2339 

2300 GOSUB 1890 

2310 IF gpo=1 THEN GOTO 2670 

2326 gpo=gpo-1:a=a-32: x=328: y=y-32: TAGOF 

F:G0SUB 6289:G60T0 1136 

2330 FOR i=i TO 4 

2340 GOSUB 1899 

2356 SOUND 1,150-y,1,5 

2360 d=0:y=y-4: x=x+t 

2370 GOSUB 1890 

2389 NEXT i 

2390 GOTO 1270 

2400 ‘HI 
+ 4 
# gaston tombe Le 
+ + 
PTS SIT SESSESCII CES ESS RSS SES 

2418 ‘ 

2426 IF d=ÿ THEN 2550 

2436 x=x+1b:y=y-4 

2446 IF y>6 THEN GOTO 2508 

2450 TAGOFF:CLS 

2460 vies=vies-1:1F vies=ÿ THEN 60TO 728 

9 

2470 LOCATE#4, vies, 1:PRINT#4," “; 

2486 LOCATE#4, vies, 2:PRINT#4," "; 

2499 x=1:y=1:b=b-8:condi=0:G0TO 1136 

2590 y=y-8 

2510 GOSUB 1940 

2520 SOUND 1,50+y,3,,1 

2529 GOSUB 1949 

2549 GOTO 2440 

2590 y=y-4 

2560 IF y>@ THEN GOTO 2629 

2574 TAGOFF:CLS 

2584 vies=vies-i:1F vies=6 THEN GOTO 728 

( 

2596 LOCATE#4, vies, 1:PRINT#4," “: 

2600 LOCATE#4, vies, 2:PRINT#4," “; 

2616 x=1:y=1:b=b-8:condi=&:G0TO 1130 

2624 y=y-8 

2636 GOSUB 1945 

2646 SOUND 1,56+y,3,,1 

2656 GOSUB 1949 


2666 G60TO 2560 
2670 HIHI 


* * 
4 gaston sort du tableau Li 
* 4 


APE 
2680 ‘ 
2698 x=260:y=200: 
2769 IF d=1 THEN G60TO 2830 
2716 IF y?@ THEN GOTO 2780 
2720 TAGOFF:CLS:vies=vies-1:IF vies= TH 
EN GOTO 7280 
2730 LOCATE#4, vies, 1:PRINT#4," ": 
2746 LOCATE#4, vies, 2:PRINT#4," "; 
2750 x=1:y=i 
2760 IF NOT (b-20)/16=INT((b-20)/16) THE 
N b=b-8 
2770 GOTO 1130 
2780 y=y-8 
2790 GOSUB 1940 
2860 SOUND 1,50+y,3,,1 
2810 GOSUB 1940 
2820 G0TO 2710 
2830 IF y>16 THEN GOTO 2916 
2849 TAGOFF:CLS 
2850 vies=vies-i:IF vies=0 THEN GOTD 728 
(} 
2860 LOCATE#4, vies, 1:PRINT#4," ": 
2876 LOCATE#A, vies, 2:PRINT#4," ": 
2889 x=1:y=1 
2899 IF NOT (b-20)/18=INT((b-26)/16) THE 
N b=b-B 
2900 GOTO 1136 
2910 y=y-B 
2926 GOSUB 1949 
2936 SOUND 1,50+y,3,,1 
294% GOSUB 1949 
2950 GOTO 2830 
2960 ‘HAE 


4 4 
+ mise en page + 
+ 4 


PTS SES SSES SIDE SE SC ES SES SSESS 
2976 DEFINT a-2 
2980 MODE 9 
2996 FOR i=@ TO 15:INK i,60:NEXT : 
3006 BORDER 9:PAPER 19:CLS:PAPER 0 
2010 ‘HIER 


* + 
*+ trace du cadre des commentaires * 
+ + 


TES SE SE SR ES SES ES ES SES LES ES SES SESESS 
3020 SYMBOL AFTER 32 
3030 SYMBOL 150,255, 255, 255, 143, 143, 143, 
143,143 
3040 SYMBOL 151,143, 143, 143,143, 1434143, 
143,143 
350 SYMBOL 152, 255, 240, 240, 240, 240, 255, 
255, 255 


25 


3060 SYMBOL 153,255,0,0,0,9, 255, 255, 255 
3070 SYMBOL 154,143, 15,15, 15,15,255,255, 
255 

3080 HINDOWKS, 1,29, 21, 25: CLSH3 

3090 PENKS, 15:LOCATE#S, 20, L:PRINTAS, CHR$ 
(150); 

3100 FOR i=2 TO 4:LOCATE#S, 29, i:PRINTHS, 
CHR$(151);:NEXT i 

3116 FOR i=i TO 4:LOCATE#S, 1, i:PRINT#3,C 
HR$ (133); :NEXT i 

3120 LOCATEHS, 1, S:PRINT#S, CHRS (143)4STRI 
N6$ (18, 153) +CHR$ (154) ; 

3130 WINDOW#3, 2, 19,21, 24:CL54#3 

3140 A HAE HER 


*# + 
4 trace du carre du plan 4 
# # 


HERBE 
3150 WINDOW#1,16,20,8,19:CL5#1 
3160 PEN#,15:FOR i=1 TO 11:LOCATE#1,5, i 
LPRINT#1,CHR$ (191): NEXT i 
3170 LOCATE#1, 1,12: PRINT#1,CHR$ (152)+STR 
ING$ (3, 153)+CHR$ (154) : 
3180 WINDOW#1,16,19,7,18:CLS#1 
3190 HIHI 


+ + 
+ trace du carre de vies # 
+ 4 


ÉPFÉSS SES E SES E SES SSS SES SSI SC ST SI SS 
3200 WINDOW#4, 16,20, 2,5:CLS#4 
3210 PEN#4, 15:LOCATE#4,5, 1: PRINT#4,CHR$ ( 
150); 
3220 FOR i=2 TO 3:LOCATE#4,5, 1: PRINT#4,C 
HR$ (191) 3:NEXT i 
3236 LOCATE#4, 1, 4:PRINT#4,CHR$ (152) +STRI 
N6$ (3, 153) +CHR$ (154) ; 
3240 SYMBOL 156,0,0,117,85,117,87,82,0 
3250 SYMBOL 157,0,0,119,68, 109,68, 119,0 
3260 SYMBOL 158,0,0,0,48,0,48,0,0 
3270 PEN #4,12:LOCATE#4, 1, 1:PRINT#4,CHR$ 
(156)+CHR$ (157) +CHR$ (158) ; 
2280 WINDOW#4, 16,19,3,4:CLS#4 
3200 HIHI 


# 4 
# affichage du tableau des scores # 
* 4 


AAA 
3309 WINDOW#2, 2, 14,2, 5: CLS#2 
3316 PEN#2, 15:LOCATE#2, 13, 1: PRINT#2,CHR$ 
(154); 
3320 FOR i=2 T0 3:LOCATE#2,13,i:PRINT#2, 
CHR$(151)3:NEXT i 
3330 LOCATE#2, 1,4: PRINT#2, STRING$ (12, 153 
}+CHR$ (154) ; 
3346 SYMBOL 150,0,0,238,170,234,138, 142, 
) 
3356 SYMEOL 151,0,0,234,78,78,78,234,0 
3360 SYMBOL 161,0,0,238,72, 78,66, 78,0 
3370 SYMEOL 152,0,0,31,32,64,32,31,0 


26 


3380 SYMBOL 193,0,0,295,9,0,0,255,0 

3590 SYMBOL 154,0,0,248,4,2,4, 248,0 
3490 SYMBOL 155,9,0,119,68,116,20,119,0 
3416 SYMBOL 156,0,6,118,685,86,85,117,0 
3420 SYMBOL 157,0,0,112,70,112,78,112,0 
3430 SYMBOL 158,6,9,87,82,114,82,87,6 
3449 SYMBOL 159,0,6,7,4,7,33,7,0 

3450 SYMBOL 169,0,6,112,70,64,79,112,0 
3460 PEN#S, 6 

3470 WINDOW#2,1,13,2,4:PEN#2, 15 

3480 FOR i=i TO 3:LOCATE#2,1,1:PRINT#2,C 
HR$ (133) ;:NEXT i | 

3490 WINDOW#2, 2, 13,2,4:CL5#2 

3506 PEN#2,7:LOCATE#2, 1,1 

3519 PRINT#2,CHR$ (150) +CHR$ (151 )+CHR$ (16 
1}; 

3520 PEN #2,6:PRINT#2,CHR$ (152; +STRING$ ( 
7,153) +CHR$ (154) ; 

3530 PEN#2,5:LOCATE#2, 1,2 

3549 PRINT#2,CHRS$ (155) +CHR$ (156) +CHR$ (15 
75 © 

3596 PEN#2,6:PRINT#2,STRINGS (9, "@"); 
3560 PEN#2, 1:LOCATE#2, 1,3 

3570 PRINT#2,CHR$ (158) +CHR$ (159) +CHR$ (16 
9); 

3580 PEN#2, 6: PRINT#2, STRING$ (9, "@"); 
3590 WINDOW#2,5,13,3,4 

3606 SYMBOL AFTER 32 

2610 HP 


* : # 
L plan + 
4 * 


ÉTÉLS STRESS SES SES SES SE SES SE SES SES SES) 
3420 SYMBOL AFTER 32 
3630 SYMBOL 122,255, 129, 129,129,129,129, 
129,255 
3646 SYMBOL 123,255, 193, 193,293, 129,129, 
189,255 
3656 SYMBOL 124,255, 193, 193,237, 129,129, 
189,255 
3660 SYMBOL 125,255, 193, 193, 213, 129,129, 
189,255 
3670 SYMBOL 126,255, 129,129, 189,131,131, 
191,255 
3680 SYMBOL 127,255, 129,129,181,131,131, 
191,255 
3690 SYMBOL 128,255, 129,129, 189,131,131, 
191,255 | 
3700 SYMBOL 129,255, 193, 193,253,131,131, 
191,255 
3710 SYMBOL 130,255, 193, 193,237,139,139, 
191,255 
3720 SYMBOL 131,255, 193, 193,237, 131,131, 
191,255 
3730 SYMBOL 132,295, 193, 192,245, 147,147, 
191,255 
3746 SYMBOL 133,255, 193, 193,245,131,131, 
191,255 
3750 SYMBOL 134,295, 193,193,217,131,131, 


191,259 

3766 SYMEOL 125,295,129,129,189,129,129, 
189,255 

3776 SYMEOL 136,259, 129,129,173,129,125, 
189,255 

3780 SYMBOL 137,255, 129,129,181,129,129, 
189,255 : 

3796 SYMEOL 138,255, 129,129,169,129,129, 
189,255 

3846 DIM salle(12,4) ,prov(12,4),gaston(i 
2,4) 

3816 GOSUB 3824:60T0 4626 

3824 FOR i=1 TO 12:FOR j=1 T0 4:LOCATE#I 
53,12PRINT#I,CHR$(32)3:NEXT j,i 

3834 PFRINT#1,CHR$(22)+CHR$ (1); 

384% FOR i=1 TO 12 

3859 FOR j=1 TO 4 

3866 salle=INT (RND#4) +1 

3876 prov(i,j)=salle 

3884 IF j=1 THEN 2920 

3898 FOR h=i TO j-1 

3906 IF provii,j)=prov(i,hi THEN GOTO 38 
LT) 

3919 NEXT R | 

3920 IF provii,i)=1 THEN salle(i, j)=INT( 
RND#3)+1:G0T0 3954 

3936 IF prov(i,j)=2 THEN saileii, ji=INT( 
RND#3) +4: GOT 3950 

3946 salle(i, j)}=INT (RND#16)+7 

3950 FEN#1,6:LOCATE#I, j,1:PRINT#1,CHR# (1 
22+5alle(i,3)}; 

3966 PEN#1,15:LOCATE#1, j, 1: PRINT#1,CHR$ ( 
122); 

3974 gaston(i,j)=salle(i,j) 

3984 NEXT j 

3998 NEXT i 

4606 PRINT#1,CHR$ (22) +CHR$ (0); 

491% RETURN 

4020 AMEN 


* + 
+ trace du cadre #ù L 
4 4 


PRISES S STE ST SE SEESE ST ESS TES SES) 
4926 WINDOW#O, 1,14,7,19:CLS 
CUITE TT TS SSL SSL SELS EE ÉS ETS S ESS STE SSSS) 


+. 4 
# trace des tableaux: # 
+ Li 


PHONE 

4954 SYMBOL 197,24,24,24,24,96,96, 165, bb 
4068 SYMEOL 198,0,0,0, 165, D, 165, 66, à: 

| LAMFE 
d:'À 
4886 SYMBOL 170,0,0,14,16,14,19, 10,6: 

"À 
4990 SYMBOL 141,0,4,192,166,192, 160,224, 
g:'E 
4106 SYMBOL 171,4,4,12,16,12,16,14,û: 


"EH 
4119 SYMEOL 
g:'C 
4126 SYMEOL 

: 

4130 SYMBOL 
6:'D 
4146 SYMBOL 

"D 
4156 SYMBOL 
g:'E 
4169 SYMEOL 

E 
4170 SYMEOL. 
CN 
4186 SYMEOL 

°F 
419ù SYMBOL 
û:'6 
4206 SYMBOL 

‘6 
4219 SYMEOL 
6H 
4220 SYMBOL 

CH 
4236 SYMEOL 

‘ 
24ÿ SYMBOL 

"1 
4250 SYMBOL 

é 
4260 SYMEOL 

F4 
4270 SYMBOL 
CE 
4280 SYMEOL 

& 
429û SYMEOL 
QU 
4209 SYMEOL 

AE 
4319 SYMEOL 
ÿ:'M 
4326 SYMBOL 

"M 
4336 SYMEOL 
Qu 'N 
4349 SYMBOL 

N 
4:50 SYMBOL 
6: '0 
4369 SYMEOL 

‘0 
4376 SYMEOL 
Cha 
4280 SYMEOL 

re 
390 SYMBOL 
32:'Q 


142, 0,0, 224,128, 128, 128,224, 
172,0,0,14,8,8,8, 14,0: 
143,0, 0,192, 160, 160, 160,224, 
173,0,0,12, 10,10, 10, 14,6: 
144,0,0,224,128, 192, 128,224, 
174,0,0,14,8, 12,8, 14,0: 
145,0,0, 224,128, 192,128, 128, 
175,0,0, 14,8, 12,8,8,6: 
146,0,0, 224,128, 160, 16, 22 
176,0,0,14,8, 10,10, 14,0: 
147,0,0, 140, 160,224, 160,160, 
177,0,0,10, 10, 14,10, 10,0: 
148,0,0, 224,64, 64,64, 224, d: 
178,0,0,14,4,4,4,14,0: 
149,0, 0, 224,64, 64,64, 192, 0: 
179,0,9,14,4,4,4, 12,0: 

150, 0,9, 160,192, 192, 16, 16, 
180,0,0, 16,12, 12, 10, 1,0: 
151,0,0,128, 128, 128,126, 224, 
181,0,0,8,8,8,8, 14,0: 

152, 0,0, 160,224, 165, 160, 166, 
182,0,0,10,14,10, 10, 10,0: 
153, 0,0, 160, 224,224,224, bb, 
183,0,0,10,14,14,14,10,0: 
154,0, 0,224, 160, 160, 160, 224, 
184,0,0,14,10, 1,10, 14,0: 
155,0,0,224, 160,224, 128, 128, 
185,0,0, 14,10, 14,8, 8, 0: 


156,0, 0,224, 160, 166, 160,224, 


4468 SYMBOL 
‘A 
4416 SYMEOL 
OUR 
4426 SYMEOL 
CK 
4439 SYMBOL 
"5 
4440 SYMBOL 
” g 
4450 SYMEOL 
ST 
4460 SYMBOL 
"TJ 
4476 SYMBOL 
Q:'U 
4486 SYMEOL 
"U 
4499 SYMBOL 
4 ; 
450% SYMBOL 
TV 
4519 SYMEOL 
9: 
4520 SYMBOL 
"HW 
4530 SYMBOL 
RL | 
4544 SYMBOL 
TX 
4550 SYMBOL 
"Y 
4566 SYMBOL 
in 
4576 SYMBOL 
‘TL 
4584 SYMEOL 
"Z 
4596 SYMBOL 33,255,2595, 295, 255, 299, 255, 2 
99,299: ‘plein 
4606 SYMBOL 166,20,20,60,52,255,231,60,6 
à: ‘camelaser 
4619 SYMBOL 167,255, 24,0,24,0,24,6,24:°t 
able 
4626 GOSUB 6350: G0TD 118 
4630 HAE 


186,0,0,14,10,16, 10,14, 2: 
157,0,0, 224, 160,224, 192, 166, 
187,0,0, 14,10, 14, 12, 10,6: 
158,0,9, 224, 128,224, 32,224, 
188,0,0,14,8,14,2, 14,0: 
159,0,0,224, 64,64, 4, b4, 0: 
189,0,0,14,4,4,4, 4,0: 

160, 0,0, 160, 160, 166, 164,224, 
190,0,9, 19,10, 10, 19, 14,0: 
161,0,0, 160, 160, 145, 224, 64,0 
191,0,0,10,10,10, 14,4, 0: 
182,0,0, 160, 169, 160,224, 160, 
192,0,0,10, 19,16, 14, 10,0: 
163,0,0, 160, 16,64, 160, 16ÿ,5 
193,0,0, 10, 10,4, 10, 10,0: 
164,0,0, 160, 224,64, 64,64, 0: 
194,0,0,10,14,4,4,4,ê: 
165,0,0, 224,32, 64, 128, 224, 0: 


195,0,0, 14,2,4,8, 14,0: 


+ * 
+ CONVERTIT LES LETTRES 4 
# 4 


AH HE 
4640 texte=INT (LEN (textes) /24)+1 
4654 INK 3,0 
4666 FOR j=1 TO texte 
4670 text$=MIDS (textes, (J424)-23, 24) 
4680 GOSUB 4739 
4690 TY=TY+1 
4700 NEXT J 
4718 INK 3,20: INK 4,24 
4720 RETURN 


4730 TEXT=LEN(TEXTS) 

4749 INK 4,0 

475% IF TEXT/2<>INT(TEXT/2) THEN TEXTS=T 

EXT$+" ":GOTD 4730 

4760 TEX1$="":TEX2$="" 

4770 FOR 1=1 TO TEXT STEP 2 

4786 TEX1=ASC (MID$ (TEXTS, I, 1) ) 

4790 TEX2=ASC (MIDS (TEXTS, [+i,1)) 

4809 IF TEXI=32 THEN TEX1=-43 

48iè IF TEX2=32 THEN TEX2=-75 

4820 TEX1$=TEX1$+CHR$ (TEX1+75) 

4830 TEX2$=TEX2$+CHR$ (TEX2+105) 

4844 NEXT I 

4850 PRINT CHR$(22)+CHR$ (1) ; 

4860 LOCATE TX,TY:PRINT TEX1$; 

4876 LOCATE TX, TY:PRINT TEX2$; 

4889 PRINT CHR$(22)+CHR$ (0) ; 

4896 RETURN 

4900 ‘#44 tableau 13 

4916 TEX=(INT (RND#2)+1) #6: tx=7 

4920 LOCATE tx,tex:PEN 14 

4939 PRINT CHR$(167); 

4949 LOCATE tx, TEX-1:PEN 8 

4956 PRINT CHR$ (196); 

4960 PRINT CHR$(22)+CHR$ (1) ; 

4976 INK 8,0,6 

4980 FOR j=2 TO 13 

4990 PEN 14:LOCATE j,7:PRINT CHR$(33); 

5090 PEN 11:LOCATE j,7:PRINT CHR$(1)+CHR 

$(24); 

5919 PEN 14:LOCATE j,13:PRINT CHR$ (33); 

5024 PEN 11:LOCATE j,13:PRINT CHR$(1)+CH 

R$ (24) ; 

5039 NEXT j 

5049 EVERY 169,9 GOSUB 7510 

5954 FOR i=4 TO 16 STEP 3 

5966 LOCATE i,1:PEN 19:PRINT CHR$(197); : 

LOCATE i,8:PRINT CHR$ (197); 

5079 LOCATE i,1:PEN 9:PRINT CHR$ (198) ;:L 

OCATE i,8:PRINT CHR$ (198); 

9989 NEXT i 

5090 FOR j=1 TO 13 

5199 LOCATE 1, j:PEN 15:PRINT CHR$ (33); 

5116 LOCATE 14, j:PRINT CHR$ (33); 

9128 NEXT j 

5136 LOCATE 2,6:PEN 2:PRINT CHR$ (166); 

5149 LOCATE 13,6:PRINT CHR$ (166) ; 

5156 GOSUB 7670:h=REMAIN (2) 

5160 FOR cam=0 TO 3 

5179 xcam=INT (RND#4) +1 

5186 ycam= (INT (RND#3)+1)+(camx3) 

519% IF xcam=gpo AND ycam=gpa THEN EVERY 
199,2 GOSUB 7540 

5209 xcam(can)=xcam: ycaa(cam)=ycam 

9214 NEXT can 

5226 GOSUB 7h68 

9230 PEN i 

5246 PRINT CHR$ (22) +CHR$ (6) ; 

929% RETURN 


#+ 


27 


0260 ‘### tableau 14 #+ 
9276 tex=b:tx=8 

5280 LOCATE tx,tex:PEN 14 

5299 PRINT CHR$(167); 

9306 LOCATE tx,tex-1:PEN 8 
5319 PRINT CHR$(196) ; 

0320 GOSUB 4960 
9339 PEN 9:LOCATE 6,7:PRINT" "; 

34% LOCATE 6,8:PRINT" ‘; 

9399 RETURN 
5560 ‘### 

9379 TEX=6:tx=7 
5380 LOCATE tx,tex:PEN 14 

5399 PRINT CHR$(167) 5 

5496 PEN B:LOCATE tx, tex-1 

9419 PRINT CHR$(196); 

5429 GOSUB 4960 
5436 PEN 9:LOCATE 8,7:PRINT" "; 
5446 LOCATE 8,8:PRINT" ‘": 
9499 RETURN 
460 ‘#44 
0476 tex=b:tx=8 
9486 LOCATE tx,tex:PEN 14 
5499 PRINT CHR$ (167); 

5909 PEN B:LOCATE tx, tex-1 
9919 PRINT CHR$ (196); 

9929 GOSUB 4980 
9939 PEN 9:LOCATE 4,7:PRINT" 
19,7: PRINT" ": 
9949 LOCATE 4,8: PRINT" 
RINT" "; 
9994 RETURN 
5060 ‘##+ 
99/6 GOSUE 4910 
5580 PEN 9:FOR i=i TO 13:LOCATE 1,1:PRIN 
T CHR$(207)::NEXT 1 

5999 RETURN 
0600 ‘#44 

5616 GOSUB 5270 
5620 GOSUB 5589 
5639 RETURN 
J649 ‘### 

9694 GOSUB 5470 
9665 GOSUB 5580 
9670 RETURN 
9680 ‘#4 

5699 GOSUB 4910 
5700 PEN 9:FOR i=i TO 13:LOCATE 14,i:PRI 
NT CHR$ (207) 5: NEXT i 
9719 RETURN 
5/20 ‘##4# 

9730 GOSUB 5370 
5/49 GOSUE 5700 
9799 RETURN 
57/60 ‘###. 

9774 GOSUB 5470 
5/80 GOSUB 5706 
97/99 RETURN 
5804 ‘### 


tableau 15 ## 


tableau 16 #+ 


"s:LOCATE 


“;:LOCATE 10,8:P 


tableau ài ## 


* 


tableau 62 # 


tableau 93 #+ 


tableau 04 #4 


tableau 05 ## 


tableau 06 ## 


% 
* 


tableau 97 
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5819 GOSUB 4910 
5829 GOSUB 5584 
5830 GOSUB 5700 
5849 RETURN 
5850 ‘##+ 
5869 GOSUB 5320 
5870 TEX=12:tx=7 
5880 LOCATE tx,tex:PEN 14 
5890 PRINT CHR$(167); 
5900 PEN B:LOCATE tx,tex-1 
9916 PRINT CHR$ (196); | 
5926 PRINT CHR$(22)+CHR$ (1); 
9930 FOR j=8 TO 12 
5940 PEN 14:LOCATE 8, j: PRINT CHR$ (33); 
5950 PEN 1'1:LOCATE 8, j: PRINT CHR$(1)+CHR 
$(24); 
9968 NEXT j 
9970 PRINT CHR$ (22) +CHR$ (0); 
5989 GOSUB 5820 
9990 RETURN 
6000 ‘### 
6010 GOSUB 5270 
6020 GOSUB 5829 
6030 RETURN 
6040 ‘#44 
6050 GOSUB 5420 
bOb0 TEX=12:tx=8 
6976 LOCATE tx,tex:PEN 14 
6080 PRINT CHR$ (167); 
6090 PEN B:LOCATE tx, tex-1 
6109 PRINT CHR$ (196); 
6110 PRINT CHR$(22)+CHR$ (1); 
6126 FOR j=8 TO 12 
b130 PEN 14:LOCATE 6, j: PRINT CHR$ (33); 
6149 PEN 11:LOCATE 6, j: PRINT CHR$(1)+CHR 
$(24); 
6150 NEXT j 
6160 PRINT CHR$(22)+CHR$ (0); 
6170 GOSUB 5820 
, 6186 RETURN 
6190 ‘#+##+ 
6200 GOSUB 5370 
6219 GOSUB 5828 
6220 RETURN 
6230 ‘##+ 
6240 GOSUB 5470 
6250 GOSUB 5820 
6260 RETURN 
6270 HIER 
# # 
+ affichage du score + 
4 # 
PPTTS RSS SSI SSI SES S SES ITS LS 
6280 SC=SC+INT ( (TEMPS-106) /4)+(TEL#TIM) 
6290 IF sc{@ THEN sc=ÿ 
6300 LOCATE#?, 1, 1:PRINT#2, US ING"4HHHHHHHE 
#";sc; 
6310 IF sc>record THEN record=sc:LOCATE# 
2, 1,22 PRINTH2, USING 4H"; record; 


tableau 98 #+ 


tableau 09 #+ 


tableau 19 #+ 


tableau 11 #+ 


tableau 12 #+ 


6326 TEL=6: 
6330 RETURN 
DEA HAN 


* + 
# DISTRIBUE LES LETTRES # 
# + 


TT TS STI TES SL ES IS SSSESSE SES SES ES SES 

4350 DIM NT$ (12,4) ,NT (12,4) ,PH$ (48) 

4366 pdé=STRINGS (48,32) 

6370 READ'phc$ 

6380 PHC=LEN(PHCS) 

&390 PHCS=PHCS4STRINGS (48-PHC, 32) 

4406 IF PHC/2=INT(PHC/2) THEN FHCI=PHC E 

LSE PHCI=PHC+1 

4416 PHCI$=MIDS (PHCS, 1, PHC1) :FC$=PHC1$ 

4429 PHC=48 

4430 FOR I=1 TO 12:F0R J=1 TO 4:NTÜI,J)= 

O:NEXT J, 1 

4440 FOR PH=1 TO PHC 

6450 PHS (PH)=MIDS (PHCS, PH, 1) 

6460 NEXT PH 

6478 FOR NSA=1 TO 12 

6480 FOR NS0=1 TD 4 

6490 NT=INT (RND#PHC) +1 

6500 NT$ (NSA, NSD) =PH$ (NT) 

6510 WHILE NT<PHC 

8526 PHS (NT) =PH$ (NT+1) 

6530 NT=NT+1 

6540 WEND 

6550 PHC=PHC-1 

6560 NEXT NS0 

6579 NEXT NSA 

6580 RETURN 

6590 END 

NX UE TE TT CETTE ETES EI SCIE SCECCZCECLEZS 
+ + 
5 PHRASES CACHEES ” 
+ + 
ETS TELE ILÉSSSS ESS SSL S SES ES LS S SES SE S 

6619 DATA "L HOMME EST CONDAMNE A ETRE L 


IBRE" 

6620 DATA “ETRE CONTESTE  C EST ETRE CO 
NSTATE* 

663Q DATA "ON N AIME PLUS PERSONNE DES 
QU ON AIME" 


6640 DATA “LA SINGULARITE EST DANGEREUSE 
EN TOUT" 

6650 DATA “TOUT CE QUI EST PLUS EST INFI 
NIMENT MOINS QU UN" 

b6bÿ DATA “LA MORALE EST LA FAIBLESSE DE 
LA  CERVELLE" 

6678 DATA ".  GOUVERNER 
R" 

6689 DATA “BOHEMIENS 
TOUS LES ENFANTS" 
(NX TT SIL SSSCLCLCLCELECECESSES EE 


C EST CHOISI 


VOUS AVEZ EMPORTE 


+ 4 
+ reconstitue la phrase + 
# 4 


M e$=" BRAVO 


ABB 
6706 IF tim=6 THEN GOTO 6886 
6719 GOSUB 1990 
6726 TAGOFF 
6736 INK 8,6 
6744 PRINT CHR$(22) +CHR$ (1); 
6756 LOCATE tx,tex-1:PEN 0::PRINT CHR$(I 
9%); 
676% qao=AGC (NT$ (GPa, GPO) ) 
6774 IF gao=32 THEN gao=6 ELSE gao=52 
6786 LOCATE tx,tex-1:PEN B:PRINT CHR$ (AS 
C'(NT$ (GPa, GFO).)+qao) ; 
6790 WHILE INKEY$<>"":WEND 
6866 IF INKEY(3)=-1 AND INKEY(2)=-1 THEN 
6840 
6818 IF INKEY(2)=-1 THEN fe=i 
6826 LOCATE tx,tex-1:PEN G:PRINT CHR$ (AS 
C'(NT$(GFa, GPO) )+gao); 
6830 LOCATE tx,tex-1:PEN B:PRINT CHR$ (19 
b); 
6849 PRINT CHR$ (22) +CHR$ (0) ; 
6856 TAG 
6860 GOSUB 1899 | 
6870 IF fe=i THEN fe=0:RETURN 
6884 i=1 
6894 h$=MID$ (PC$, 1,1) 
6900 IF H$CNTS(GPA,GP0) THEN 7070 
6910 PCS=MID$ (PC$, 1, 1-1)+"0"+RIGHTS (PC, 
PHCI-1) 
6920 PD$=LEFTS (PD$, 1-1) +H$+RIGHTS (PD$, PH 
Ci-I) 
6930 PDi$="":PD2$="" 
6949 FOR ci=1 TO PHCI STEP 2 
6950 hi=ASC(MID$ (pd$,ci, 1)) 
6960 h2=ASC(MID$ (pd$,ci+1. 1) ) 
6970 IF hi=32 THEN hi=-4 
6988 IF h2=32 THEN h2=-73 
6990 pdi$=pdi$+CHR$ (h1+75) 
7000 pd2$=pd2$+CHR$ (h2+105) 
7010 NEXT ci 
7020 PRINT#3,CHR$ (22) +CHR$ (1) ; : PENHS, 1 
7030 LOCATE#S, 1,2: PRINT#S,pd1$ 
7940 LOCATE#S, 1,2: PRINT#3,pd2$ 
7056 PRINT#3,CHR$ (22) +CHR$ (0) ; 
7060 GOSUB 7110:RETURN 
7670 i=i+i:IF i=PHCI+1 THEN 7080 ELSE 60 
TO 6B9ù 
76806 TEL=-10+ (ASC (NTS$ (GPA, GPO) ) ) : RETURN 


7000‘ AHHHHAEHEHHEHEBEHEHBEREBEE 
C + 
#  VERIFICATION DE LA PHRASE + 
* + 


CRÉES EI EE LC LCL CLS LEEE EEE LS EE ELLE 
7100 H=REMAIN(0):GOSUB 1890:60SUB 7110:T 
IM=1:G0T0 7130 
7116 IF PD$=PHCI$ THEN G0TO 7120 ELSE RE 
TURN 
7126 TAGOFF:WINDOW#0,2, 13, 11,17: CLS: text 
VOUS AVEZ BI 


EN JOUE . MAIS SAUREZ VOUS TROUVER LA 

PROCHAINE PHRASE": TX=1: TY=5:G0SUB 4640:6 

OTO 7340 

7130 TAGOFF 

7149 CLS 

7159 WINDOW#9, 1,20,7,19 

7160 text$="REGLES DU JEU": TX=4: TY=2: PEN 

2:60SUB 4730 

7170 TEXTS="ENFONCEZ UNE TOUCHE":PEN 4:T 

X=3:TŸ=13:60SUB 4730 

7180 WINDOW#0,2,13,11,17 

7190 TEXTES=" LE TEMPS QUI VOUS ETAITIMP 

ARTI EST ECOULE VOUS ALLEZ DEVOIR 

ALLERCHERCHER LES LETTRES QUI VOUS MANQU 

ENT" 

7200 TX=1:TY=1:PEN 3:60SUB 4649:GO0SUB 77 

6ù 

7219 IF PARTIE=2 THEN 6070 7256 

7220 TEXTE$=" QUAND VOUS REPONDREZ AUTEL 

EFON UNE LETTRE IRA S AFFICHER A LA PLA 

CE DUTELEFON VOUS POURR 

EZ LA GARDER OÙ LA JETER C 

EST A VOUS DE CHOISIR": TX=1:TY=1:GOSUB 4 

640:GOSUB 7760 

7230 TEXTES=" SI VOUS VOULEZ GARDER LA 

LETTRE APPUYEZ SUR LAFLECHE QUI DESCEND 
SI VOUS VOULEZ JETER LALETTRE AFPU 

YEZ SUR LA FLECHE QUI MONTE": TX=1:TY=1 

:60SUB 4640:G0SUB 7769 

7240 TEXTE$=" FAITES LE BON CHOIX OU VOU 

S PERDREZ LES POINTS QUE VOUS AUREZ GAGN 

ES AUPARAVANT": TX=1: TY=2:60SUB 4640:60 

SUB 7760 

7250 WINDOW#O,1,14,7,19:CL5 

7260 GOSUB 6420 

7270 GOTO 1080 

7280 HAINE 


+ 4 
+ TEST DE FIN + 
4 + 
ANNEE 
7290 TAGDFF 
7300 CLS 


7310 h=(REMAIN() AND REMAIN(1) AND REMA 
IN(2)) 
7320 WINDOW#0, 2, 13,11,17:CLS 
7330 SPEED KEY 10,7 
7340 texte$=" VOULEZ. VOUS REJOUER UNEAUT 
RE PARTIE 0 POUR OUI 

N POUR NON FAITES VOTR 
E CHOIX": TX=1:TY=1:PEN 3:G0SUB 4640 
7350 WHILE INKEVS<>"":NEND: CALL LBBO6 
7340 ques=INKEYS: IF quet="" THEN 7360 
7370 IF que$<>"o" AND que$<>"0" THEN GOT 
0 7740 
7389 WINDOWKS, 2, 19, 21,24 
7390 CLS#3 
7400 TIM=0 
7410 PARTIE=PARTIE+1:1F PARTIE=6 THEN PA 


RTIE=1:RESTORE 

7420 RECORD=SC 

7430 LOCATE#2, 1,2: PRINT4#2, US ENG" HHHHHHHH 
#";record; 

7440 LOCATE#Z, 1, 1:PRINT#2,USING'HHHNHHEE 
disc: 

7454 times=0 

7466 GOSUB 6360 

7470 GOSUB 3820 

7486 CLS:60T0 554 

7400 HHEHHEAAAOPHEHAEEEENEE 


+ + 
# times + 
4 + 


AAA 


7509 times=times+i: RETURN 
PH) ELEC EL ETES EEE TEE ETES TES 


4 4 
Li SOUND + 
4 4 


HER 


7520 SOUND 1,150, 25, 5:RETURN 
7530 ‘HAINE 


+ # 
* LASER 4 
4 * 


PPPPT PPT TT PTS TETE TT EST ET ETS ET T TE 
7540 CHOX(1)=4E378: CHOX (2) =4E30F 
7550 CHO=INT (RND#2) +1 
7560 IF CHO=1 THEN CHA=1 ELSE CHa=-1 
7570 FOR CHOX=CHOX(CHO) TO CHOX(CHO+CHA) 
STEP CHA 
7580 IF PEEK(CHOX)>3 THEN condi=1:RETURN 
7590 POKE CHOX, 255 
7600 SOUND 3,CHOX-4E377, 1 
7610 NEXT 
7620 FOR CHOX=CHOX(CHO) TO CHOX (CHD+CHA) 
STEP CHA 
7630 POKE CHOK, 0 


7646 NEXT 

765% RETURN 

HEC ETES TESTÉES SSSSS 
# 4 
+ CAMERAS # 
# 4 


ESS TS SSSR ESS SES CSSS SSL SL SES SSSSS ES] 
7670 PRINT CHR$(23)+CHR$ (1) ; 
7680 FOR cir=0 TO 3 
7690 PLOT 456+(xcam(cir)#32),186-(ycam(c 
ir)#16),2 


‘7708 PLOT 468+(xcam(cir)+#32),186-(ycam(c 


ir)#16),2 

7710 NEXT cir 

7720 RETURN 

YEAR TS CIS ICI SIT I CIS ILES ESSIEISSSS 
7740 SPEED KEY 19,7:SYMBOL AFTER 32#END 
7750 * HEART 
7760 WHILE INKEY$<>"":NEND: CALL &BBO4:CL 
S: RETURN 
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MINI-MAC 


Patrice JACQUES 


Mini-mac est un éditeur-gestionnaire de menus déroulants. La pre- 
mière partie de cet utilitaire est une routine en langage machine utili- 
sable grâce à la RSX IMenu,No,X,Y. La seconde partie est un éditeur 
en Basic pour composer les textes des menus (10 menus maximum 


numérotés de 0 à 9). 


ENU PRI 
SENTE ETS: 


Mode *emp 
Retour bas 


Ram ue a em) 


LEE INITIALISATION MIE 
ARR DES SRE 


En tant que mode d'emploi, nous allons 
simuler une petite application qui vous 
permettra, par l'exemple, d'utiliser 
mini-mac. Soyons modeste, ce sera 
une petite calculatrice 4 opérations. Le 
menu principal comportera donc les 
options addition, soustraction, multipli- 
cation, division et Quitter. 

Un second menu de confirmation appa- 
raitra si ‘’quitter’’ est validé et présen- 
tera les options ‘‘confirmation’’ et 
‘annulation’. 

Avant d'utiliser ces menus, vous allez 
les créer au moyen de l'éditeur de mini- 
mac (au lancement du programme, 
c'est bien sûr l'option EDITEUR du 
menu principal). 

Notre menu No O ayant un titre, pres- 
sez ‘’espace’’ puis ‘‘enter’’ pour vali- 
der votre choix. À la question titre, 
répondez CALCULETTE. Ensuite, rem- 
plissez le nom des cinq options comme 
convenu. Pour indiquer que le menu No 
O est achevé, pressez Q majuscule 
(suivi de ‘‘enter''). Le texte de menu 
est terminé. 


80 


loi 
ic 





Mini-mac va alors vous indiquer sa sur- 
face. En effet, vous avez remarqué 
qu'un menu déroulant n'altère pas le 
contenu de l'écran à sa fermeture car 
il sauvegarde dans un buffer ce qui se 
trouve à l'endroit où il va apparaître, 
puis le restitue à sa fermeture. 

De ce fait, plus la surface des menus 
est grande et plus la routine nécessite 
de mémoire pour fonctionner. 

Le programme vous demande ensuite 
le mode écran MAXIMUM dans lequel 
vous afficherez votre menu et ce, pour 
la même raison, car en mode O la sur- 
face est 4 fois supérieure au mode 2. 
En cas de doute, mettez le mode O car 
si vous consommez plus de place qu'il 
n'y en a de réservée, la routine sera 
écrasée par le buffer de sauvegarde et 
votre CPC plantera !!! 

Pour le menu No 1, procédez de la 
même façon en ne mettant pas de titre. 
Pour les deux menus, vous choisirez 2 
comme mode écran MAXIMUM (j'in- 
siste). Pour quitter l'éditeur, pressez la 
touche F et vous reviendrez au menu 
principal. 

L'édition étant terminée, passez à la 
sauvegarde de votre travail. C'est 
grâce à cette opération que vous pour- 
rez Utiliser les menus dans vos applica- 
tions personnelles. 

En premier lieu, un écran vous décrira 
l'occupation mémoire de la routine et 
l'espace utile en fonctionnement. Un 
menu vous demandera alors confirma- 
tion de la sauvegarde. Si vous êtes OK, 
elle sera effectuée. Un autre écran vous 
indiquera deux lignes BASIC que vous 
devrez IMPERATIVEMENT insérer au 
début de votre programme. 


Utilisation de IMENU, No, X, Y 


Vous allez enfin pouvoir écrire votre programme en suivant ces quelques 
directives. Tout d'abord, recopiez les deux lignes Basic qui ont été affi- 
chées à la fin de la sauvegarde (et encore une fois pensez à passer en 





mode 2 avant RUN). 

10 CLEAR:MEMORY &A1ED:LOAD'IMENUS.BIN"" 

20 CHOIX% =O:CALL &A270,8CHOIX% 

On affiche le menu No O aux coordonnées 10,14 

30 IMENU,0,10,14 

Test de la réponse dans CHOIX%X 

40 ON CHOIX% GOTO 50,60,70,80,90 

Addition 

50 INPUT A:INPUT B:PRINT A +B:GOTO 30 
Soustraction 

60 INPUT A:INPUT B:PRINT A-B:GOTO 30 
Multiplication 

70 INPUT A:INPUT B:PRINT A*B:GOTO 30 

Division 

80 INPUT A:INPUT B:PRINT A/B:GOTO 30 

Quitter (on affiche le menu No 1 en X=14 et Y=15) 
90 IMENU,1,14,15:1F CHOIX% = 2 THEN GOTO 30 ELSE END 


Vous êtes maintenant prêt à utiliser MINI-MAC. Bon courage ! 


1800 HE AENRAREPENNS 
1919 ‘##  JACQUES Patrice #4 
1926 ‘+ presente: * 
1839 ‘xt Mini-Mac ++ 
1940 HE HEMHNNENEHHPHNE 
1850 
1866 ‘Listing No i 

. 1678 ‘ 
1988 ‘ 
1699 ‘ 


1169 MODE i:BORDER 14:INK 6,0:INE 1,14:1 

NE 2,18:INE 3,6:G0SUB 1314:CLEAR 

1119 PEN 3:LOCATE 3,2:PRINT CHR$(159)STR 

ING$ (16,154) CHR$ (156) 

1124 PEN 2:LOCATE 5,3 

R$(164)"1987" 

1136 FEN Z:LOCATE 3,3:FRINT CHR$(149):LO 

CATE 24,3:PRINT CHR$ (149) 

1146 LOCATE 3,4:FRINT CHR#&(147)STRINGS (1 

6,134) CHR$ (153) 

1156 MOVE 9,13:DRAWR 639,0,3: MOVE 6,35:D 

RAWR 639,0 ; 

1166 MOVE 9,6: DRAW 9,399,3:DRAW 639,399: 

DRAW 639,9: DRAW 8,0 

be PEN Z:LOCATE 2,24:PRINT .STRINGS$ (7,2 
2)STRINGS (24,32) STRINGS$ (7,232) 

1180 EVERY 16 GOSUE 1770 

1199 WINDOW#1,14,26,11,14:PRINT#1, "Pense 

es";:PRINT#1,"de CPC." 

1299 FOR I=1 TO SOb:NEXT 

1216 PEN 1:LOCATE 9,24: PRINT " Avant j'e 

tais moche... ":FOR 2=1 TO 750:NEXT 7 

1226 MES$="Avant j'etais moche... Mainte 

nant c'est fini. Je deroule les menus co 

ame tout le monde avec la simplicite en 

prime !!1" 

1236 GOSUR 1556 

1244 FOR I=1 TO LEN(MES$):LOCATE 19,24:P 

RINT MID$(MESS$,1,22):FOR 2=1 TO 66 

1256 NÉXT:NEXT 

1264 IF INKEY${>"" THEN GOTO 1276 

1274 CLS#1:PRINT#1, "Charge-"s; :PRINT#1 ,"m 

ent en"::FPRINT#I, "cours. ":PEN 1 

1286 LOCATE 9,24:PRINT " ZX Veuillez pat 

ienter X" 

1296 LOCATE 1,26 

1309 RUN"'MAIN. BAS" 

1316 REM DESSIN DU CLAVIER DU CPC 

1324 MOVE 114,4B:DRAW 416,48,2:DRAW 414, 

&5:DRAH 116,65:DRAH 114,48 

1336 MOVE 116,48:DRAW 126,42:DRAW 408,42 

:DRAW 416,48 

1346 MOVE 116,65:DRAN 136,168: DRAW 394,1 

68: DRAH 414,65 

1354 MOVE 156,164: DRAN 266, 164, 1: DRAW 34 

B,96:DRAW 146,96: DRAN 159, 164 

1364 MOVE 144,92:DRAW 316,92:DRAW 312,74 

:DRAW 266,74:DRAN 268,69 

1376 DRAW 192,69: DRAW 182,74: DRAW 

:DRAW 144,92 

1388 MOVE 316,96: DRAW 

: DRAH 


3: PRINT'MINI-MAC "CH 


136,74 


336,90: DRAW 
320,68: DRAW 316,90 


345,68 


1390 MOVE 337,104: DRAW 388,194: DRAW 298, 

80:DRAW 344,80:DRAM 337,194 

1400 MOVE 348,66:DRAN 346,74: DRAW 462,74 
:DRAW 406,66 

1410 MOVE 312,104: DRAW 33,104: DRAW 322, 
94:DRAW 314,94: DRAM 312, 104 

1426 REM DESSIN DE L'ECRAN DU CPC 

1430 MOVE 168,294: DRAN 362,294, 2: DRAW 26 
2,130:DRAM 168,136:DRAN 168,294 

1440 MOVE 176,130:DRAW 176,282: DRAM 354, 
282:DRAW 354,130 

1456 MOVE 168,294:DRAW 176,282: MOVE 362, 
294:DRAW 2354, 282 

146 MOVE 168,294: DRAW 200,312: DRAM 228, 
312:DRAW 236,302:DRAW 298, 302 

1474 DRAW 312,312: DRAW sis 312: DRAM 
294: MOVE 232,310: DRAW 306,316 

1486 MOVE 182,276: DRAW ZEN 348, 
156:DRAW 182,156: DRAW 182,276 

1496 MOVE 194,266: DRAM 336, 26b, 1: DRAM 33 
b,168:DRAN 194,168: DRAW 194,266 

1500 MOVE 182,276:DRAW 194,266, 2: MOVE 34 
8,276: DRAW 336, 266 

1510 MOVE 348,156:DRAW 336,168: MOVE 182, 
156: DRAM 194,168 

1526 MOVE 176,150:DRA4 354, 15û 

1530 MOVE 180,130:DRAW 184,118: DRAW 344, 
118:DRAW 350, 130 

1546 RETURN 

1559 REM DESSIN DU MACINTOSH 

1566 GOSUB 1660 

157à MOVE 496,292: DRAM 496,362, 2:MOVE 49 
2,364: DRAM 560, 364 

1580 MOVE 562,362: DRAW 562, 278 

1590 MOVE 464,294: DRAW 576,274: DRAW 556, 
254:DRAM 448,274: DRAW 464, 294 

1606 MOVE 522,300: DRAM 552,300: DRAM 552, 
296:DRAW 522, 296: DRAW 522, 309 

1619 MOVE 564,358: DRAW Une 2 
,-2:DRAWR 2,0:MOVER 2,-2:DRAUR 9, - 

1620 MOVER 2,-2:DRAWR 0,-28: MOVER - 2,-2: 
DRAWR 9,-2:MOVER -2,-2:DRAKR -2,9 
1636 MOVER -2,-2:DRAWR -46, 4: MOVER - 
DRAUR -2,0:MOVER -2, 2:DRAUR 0,2 
1640 MOVER -2,2:DRANR 0,28: MOVER ?,2:DRA 
WA 0,2: MOVER 2,2:DRAUR 2,9 

1659 RETURN 

1669 REM DESSIN DE LA BULLE 

1676 DEG: X=520: Y=308:R=100:PLAT=1. 5: DEB= 
250:FIN=600:GOSUB 1710 

1688 X=440:Y=256:R=30:PLAT=1 : DEB=275:FIN 
=350:G0SUB 1710 

1690 X=452:Y=258:R=35:PLAT=1. 1: DEB=270:F 
IN=349:GOSUB 1719 

1700 RETURN. 

1719 REM TRACE CERCLES/ELLIPSES 

1726 PLOT X+R4C0S (DEB) , Y+R4SIN(DEB) ,6 
1736 FOR I=DEB TO FIN STEP 19 

1749 X1=X+R4C0S (1) : Y1=Y+RASIN(I) /PLAT 
1756 DRAW X1,Y1:PLOT X1,Y1,3 

1769 NEXT I:RETURN 

1776 IF INKEY$=" " THEN GOTO 1274 ELSE R 
ETURN 


362, 


2, £s 


1000 HEIN 

1916 ‘+## JACQUES Patrice  *# 

1929 ‘+ presente: # 

1939 ‘#4 Mini-Mac *## 

1O4Q HET 

1956 

1966 ‘Listing No 2 

1979 ‘ 

1689 ‘ 

1009 

1196 ‘Initialisation et implantation du 
code objet 

PIIQ === EeS 


1129 MEMORY S8FFF: BORDER 14,15: CLEAR: CLS 
#1:PRINTH1," Phase":PRINT#," No 01" 

1136 LOCATE 9,24:PRINT "ZX  INITIALISA 
TION ZX 

1140 GOSUE 3354: CLS#1:PRINT#1," Phase":P 
RINT#1," No 02":GOSUE 4100 

1150 K1#="X PAS DE TITRE X Titre ":K2$. 
=" Pas de titre X TITRE X':BORDER 15 
1160 DIM M$(9,17):C%=0:CALL HA270, EC4: 21 
$=STRINGS (40, 46) 

1179 IMENU,9,19,9:0N CZ GOTO 1180,1240, 1 
680, 2550 

1180 ‘ 


1200. eee 

1219 MODE 2:INK 0,15:INK 1,0:FOR 14=6 TO 

Q:FOR J4=0 TO 17:M$(1%,J4)=2ZZ$:NEXT 

1229 NEXT:FLAG4=1:GOSUB 3909 

1239 GOTO 1179 

1249 

1256 ‘Option de Sauvegarde des donnees 
et de la routine 

1200." == eme 

1279 :MENU,9,6,10:0N C7 GOTO 1326,1280 

1280 MODE 2:INK 9,19: INK 1,0:GO0SUB 3276: 

LOCATE 9,1:PRINT'MINI-MAC X Sauvegar"; 

1299 PRINT'de X MINI-MAC":MOVE 66,389: DR 

AWR 511,6:LOCATE 55,1 

1309 FRINT"Catalogue drive A":HWINDOW 12, 

72,6,20:CAT:CALL &BE06 

1319 WINDOW 1,86,1,25:G0T0 1179 : 

1320 MODE 2:1iNk 0,15: INK i,4:GO0GUB 3270: 

LOCATE 9,1:PRINT'MINI-MAC X Sauvegar"; 

1336 PRINT"de X MINI-MAC":MOVE 66,386: DR 

AWR 511,9:LOCATE 54,1 

1346 PRINT"Sauvegarde routine":G0SUB 327 

9:1F FLAGX THEN 1350 ELSE GOTO 2606 

135 LOCATE 14,9:PRINT" Implantation de 1 

a routine assembleur de 4A256 a &A65O" 

13560 F=0:FOR M4=0 TO 9:FA=F4+3 

1370 IF TA(M4)=1 THEN FA=FAHLEN (MS (MZ,0) 

+1 

1386 FOR 14=1 TO N2(M4) 

1390 FA=FAHLEN(MS (MA, T4) )+1 

1499 NEXT I'A:FA=FAHLINEXT M4 

1416 LOCATE 11,11:PRINT" Implantation du 

texte des menus deroulants de &"HEXS$((EA 
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26F-F4))" a LA26F." 

1429 LOCATE 8,13:PRINT'"Localisation du b 
uffer de sauvegarde de l'ecran de &"HEX$ 
(BA26E-FA-BUFFERL)" à B'HEXS(RA2OF-FA)", 
“:MEMOZ= (WA26E-FL-BUFFERY) 

1436 LOCATE 19,15:PRINT"Consommation de 
memoire vive des menus : &"HEX$ (LA6G7D- (8 
A26E-F4-BUFFERZ) ) :LOCATE 9,6:CALL &BBô6 
1446 PRINT'X AVERTISSEMENT: Cette option 
aboutie sur un RESET de l'Amstrad X' 
1459 FOR H4=1 TO 3049:NEXT: :MENU, 6, 14,13 
:0N CX GOTO 1179, 1440 

1466 LOCATE 24, 19:PRINT"X REDRGANISAT ION 
DE L'ESPACE MEMOIRE X' 

1470 ADA=LA26F-FL: A1 =RAGSA: DEBX=ADX 
1486 FOR M2=6 TO 9:ADT4(M4)=AD4:POKE ADZ 
$LARZ (M4): POKE AD4+1,T4(M4):POKE AD4+2,N 
(M2) : ADX=AD4+3 

1496 POKE A1%, DTA (M) - (2564 (INT (ADT4 (M4 
}/256))) : 

1506 POKE A12+1, INT (ADTZ (M4) /256- (RFF 00) 
P'ALX=A1 +2 

1516 IF TA(M2)=1 THEN FOR JX=1 TO LEN(M$ 
(M4,0)):POKE AD, ASC (MIDS (M$ (M2, 0),J4,1) 
}2ADX=ADA+1:NEXT JA:POKE AD4,0:ADZ=AD#+i 
1526 FOR 1'4=1 TO NZ(M4) 

1534 FOR J4=1 TO LEN(MS(M4, 1%) ):POKE AD% 
ASC (MIDS (MS (MA, LA), J%, 1) ) : ADX=ADA+1: NEX 
T J4:POKE AD%, 0: AD4=AD4+1 

1549 NEXT:POKE AD%, &FF : ADA=AD4 +1: NEXT 
1556 FOKE 8A652, MEMOX- (2564 (INT (MEMOZ/25 
6)}) 

1569 POKE ASS, INT (MEMO%/256-(&FF 6) } 
1574 LOCATE 24,19:PRINT'E SAUVEGA 
RDE EN COURS x 

1586 SAVE "'MENUS.BIN",b, DER, A676-DEEX 
1599 MODE 2:INK 0,20:INK 1,0:G0SUB 3276: 
LOCATE 9,1:PRINT'MINI-MAC X Sauvegar"; 
1696 PRINT"de X MINI-MAC":MOVE 66,380: DR’ 
AWR 511,0:LOCATE 69,1:PRINT'Fin" | 
1616 WINDOW 12,72,6,26:PRINT"Pour que vo 
us puissiez utiliser les menus deroulant 
s dans" 

1628 PRINT" vos propres applications, je 
vous rappelle que vous devrez" 

1636 PRINT"y incorporer les 2 lignes sui 
vantes: ":PRINT:PRINT 

144% PRINT: PRINT" 16 CLEAR:MEMO 
RY &"HEXS(DEB4-1) ":LOAD"CHRS$ (34) "'MENUS. 
BIN"CHR$ (34) 

1656 PRINT“ 20 CHOIXY=0:CALL &A 
274, @CHOIK 4": PRINT: PRINT: PRINT : PRINT 
1666 PRINT: PRINT" X Pressez 
une touche pour finir X" 

1674 CALL &BBOb:CALL 0 


1709 
1710 (MENU, 1,13,13:1F CA=2 THEN W#=8 ELS 
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E WZ=1 

1720 IF WA4=1 THEN MODE 2:INE 9,15: INK 1 
,9:WINDOW#1,9,71,1,2 

1736 PRINTHWX, " d M 

ODE D'EMPLOI": FRINT#WA: PRINTHHX 

1740 PRINT#WX, " Mini-mac est un edit 

eur-gestionnaire de menus deroulants." 
1756 PRINT#WZ, "La premiere partie de cet 
utilitaire est une routine en langa-" 
1766 PRINT#HZ,"ge machine utilisable gra 

ce a la rsx :MENU,No,X,Y. La seconde" 
1776 PRINT#H£, "partie est un editeur en 

basic pour composer les textes des" 

1786 PRINT#WZ, "menus (16 menus maximum n 

umerotes de à a 9).":PRINT#WZ 

1798 PRINTHWX, “ En tant que mode d'e 

mploi nous allons simuler une petite" 
1896 PRINT#W?, "application qui vous perm 

ettra par l'exemple d'utiliser mini-" 
1816 PRINT#WX, "mac. Soyons modeste, ce s 

era une petite calculatrice 4 opera-" 
1828 PRINT#HWZ,"tions. Le menu principal 

comportera donc les options addition," 
18306 PRINT#HZ, "soustraction, multiplicat 
ion, division et Quitter." 

1844 PRINT#H:, " Un second menu de co 
nfirmation apparaitra si quitter est" 
1850 PRINT#WZ, "valide et presentera les 
options confirmation et annulation." 
1860 IF W4=8 THEN GOTO 1936 ELSE CALL &E 
Bô6 

1876 LOCATE 26,26:PRINT'X Voici l'aspect 
du menu No à X'::MENU,2,12,7 

1880 LOCATE 25,20:PRINT'X Vous avez choi 
si l'option No"STR$(C4)" X° 

1894 CALL %EB96 

1969 LOCATE 25,20:PRINT" X Voici l'aspec 
t du menu No 1 X ":MENU,3,47,8 

1919 LOCATE 25,20:PRINT'X Vous avez choi 
si l'option No"STR$(C4)" X 

1926 CALL 8BEG6: IF WA=1 THEN CLS:LOCATE# 
1,1,1 

1934 PRINTHWE., “ Avant d'utiliser ces 
menus vous allez les creer au moyen" 
1949 PRINT#W4, "de l'editeur de mini-mac 
(au lancement du programme c'est bien" 
1956 PRINT#H4, "sur l'option EDITEUR du m 
enu principal}).":PRINT#WX 

196% PRINTHHW?, * Notre menu No 6 ayan 
t un titre, pressez espace puis enter" 
1976 PRINT#W4, "pour valider votre choix. 
À la question titre, repondez" 

1980 PRINT#W?, "CALCULETTE. Ensuite rempl 
issez le nom des cinq options comme" 
1996 PRINT#HZ, "convenu. Pour indiquer qu 
e le menu No & est acheve, pressez" 

2000 PRINT#WZ,"Q majuscule (suivi de ent 
er). Le texte de menu est termine." 

2016 PRINT#HX 


2026 FRINT#H4, ‘ Mini-mac va alors vo 
us indiquer sa surface. En effet vous" 
2636 PRINT#WÉ, “avez remarque qu'un menu 
deroulant n'altere pas le contenu de" 
2646 PRINT#WZ, "l'ecran a sa fermeture ca 
r il sauvegarde dans un buffer ce qui" 
2659 PRINT#HZ,"se trouve ou il va appara 
itre puis, le restitue a sa fermeture." 
2666 PRINT#H?, " De ce fait plus las 
urface des menus est grande et plus" 
2676 PRINT#W%£, "la routine necessite de m 
emoire pour fonctionner. ":PRINT#H 

2886 PRINT#HZ, " Le programme vous de 
mande ensuite le mode ecran MAXIMUM" 
2698 PRINT#WX, "dans lequel vous afficher 
ez votre menu et ce pour la meme rai-" 
2166 PRINT#W%, "son car en mode à la surf 
ace est 4 fois superieure au mode 2" 
2116 PRINT#WZ, "En cas de doute mettez le 
mode à car si vous consommez plus de“ 
2126 PRINT#H?, "place qu'iln'yemader 
eservee, la routine sera ecrasee par“ 
2136 PRINT#H4, "le buffer de sauvegarde e 
t votre CPC plantera !!!" 

2149 CALL &EBO6:IF W4=i THEN CLS:LOCATE# 
1,1, 

2156 PRINT#WX," Pour le menu No i, p 
rocedez de la meme facon en ne met-" 
2166 PRINT#W£, "tant pas de titre. Pour 1 
es deux menus vous choisirez 2" 

2176 PRINT#WY, "comme mode ecran MAXIMUM 
(j'insiste). Four quitter l'editeur," 
2186 PRINT#HZ, "pressez la touche F et vo 
us reviendrez au menu principal." 

2198 PRINT#WX 

2206 PRINT#WZ," L'edition etant term 
inee passez a la sauvegarde de vo-" 

2216 PRINT#WL, "tre travail. C'est grace 
a cette operation que vous pourrez" 

2226 PRINT#W4, "utiliser les menus dans v 
os applications personnelles." 

2236 PRINTHWX 

2249 PRINT#WX, " En premier lieu, un 

ecran ‘vous decrira l'occupation" 

2250 PRINT#WZ, "memoire de la routine et 
l'espace utile en fonctionnement." 

2266 PRINT#WZ,"Un menu vous demandera al 

ors confirmation de la sauvegarde." 

2270 PRINT#WZ,"Si vous etes O.k, elle se 
ra effectuee, Un autre ecran vous" 

2286 PRINT#HZ, "indiquera deux lignes BAS 
IC que vous devrez IMPERATIVEMENT" 

2296 FRINT#W?, "inserer au debut de votre 
progranme. “:FRINT#WY 

2300 CALL &BEG6: IF WA=1 THEN CLS:LOCATE# 
1,11 

2310 PRINT#WE," UTILISATI 

ON DE :MENU, No, K, V'':PRINT#WA: PRINTH#WZ 
2324 PRINT#WA," Vous allez enfin pou 


voir ecrire votre programme en sui-" 
2336 FRINT#WZ, "vant ces quelques directi 
ves. Tout d'abord recopiez les deux" 
2346 PRINT#W%, "lignes Basic qui ont ete 
affichees a la fin de la sauvegarde." 
2356 PRINT#WZ,"" (et encore une fois pen 
sez a passer en mode 2 avant RUN)" 

236% PRINT#W?," 14 CLEAR: MEMORY 
LALED:LOAD"CHRS (34) : 

2374 PRINT#WX, “MENUS. BIN"CHRS$ (34) 

2386 PRINT#H4," 26 CHOIX4=0: CAL 
L &A270,@CHOIX4" 

2398 PRINT#W?," On affiche le menu N 
o Ÿ aux coordonnees 16,14" 

2466 PRINT#WY," 34 :MENU,4,19,1 
4" 

2416 PRINT#WA," 
ans CHOIX4" 

2426 PRINT#W?," 

T0 50,66, 76,86,90" 
2436 PRINT#H:," 
2444 FRINT#W?," 

T B:PRINT A+B:60T0 36" 

2454 PRINT#H?,," Soustraction" 

2469 PRINT#WX," &ÿ INFUT À: INFU 
T B:PRINT A-B:G0T0 36" 

2474 PRINT#H?,," Multiplication" 

2488 PRINT#WX, " 78 INPUT A: INPU 
T B:PRINT A#B:GOTD 36" . 

249% PRINT#WY, " Division" 

2509 PRINT#WX," 8ÿ INPUT A:INFU 
T B:PRINT A/B:G0T0 36" 

2510 PRINT#WZ," Quitter (On affiche 
le menu No 1 en X=i4 et Y=15)" 

2520 PRINT#W?,," 99 MENU, 1,14,1 
9:1F CHOIXX=2 THEN GOTO 30 ELSE END" 

2930 PRINT#WZ:PRINTHWX, “Vous etes mainte 
nant pret a utiliser MINI-MAC. Bon coura 

ge." 

2546 IF WA%=1 THEN CALL &BB06:G60T0 117 E 

LSE GOTO 1174 


2994 ‘ 


Test de la reponse d 
49 ON CHOIXX GO 


Addition" 
99 INPUT A: INFU 


< 


2574 ‘ 
2584 :MENU,8,14,12:0N C4 GOTO 1176,2590 
2596 INE 1,19:INE 6,1:BORDER 1:MODE 1:EN 
D 
266 LOCATE 15,12:FPRINT'X Option impossi 
ble, aucun menu n'ayant ete edite. X° 
2616 FOR HA=1 TO 4SMb:NEXT:GOTO 1174 
2638 
285% ‘Masque de saisie et detection des 
erreurs 


2844 
2656 IF TA(MX)=1 THEN LOCATE 37,3:LINE I 
NPUT M$ ELSE GOTO 2690 

2664 IF LEN(M$) 44 THEN LOCATE 37,3:FRIN 
T STRING$ (44,32) :G0TO 2620 

7 2674 IF M$="" THEN 2620 


2686 M$ (M2, 0) =M$ 

2699 FOR J4=1 TO 17 

2704 LOCATE 24,J%+4:LINE INPUT M$ 

2714 IF LENCM$)>49 THEN LOCATE 29,J%+4:P 
RINT 27$+" ":G0TO 2760 

2724 IF M$="Q" THEN NA(M4i=J4-1:J%=17:60 
TO 2774 

2730 IF M$="" AND M$(M4,J4)=22$ THEN M$( 


M4,J4)="" 
2740 IF M$="" AND M$ (M4,J%) 222$ THEN M$ 
=M$ (MZ, 72) 
2750 M$(M4, J)=M$:LOCATE 64,J4+4:PRINT"L 
ongueur*; 


2760 PRINT STRS$(LEN(MS$ (M4, 24) ) ) 
2776 NEXT:RETURN 


2796 ‘Recapitulatif pour chaque menu, 
demande du mode ecran 

2009 ‘---— 

2814 FOR JZ=0 TO 17:1F M$(M2,J%)=22$ THE 

N 2849 

2820 IF (T£(M4)=1 AND J4=8) THEN MENU, 7 

,54,20:IF CA=1 THEN CTA=1 ELSE CT4=0 

28130 IF LEN(MS(MZ,J%))>=LARZ (MZ) THEN LA 

R (M4) 2LEN (M$ (MX, 94) ) 

284% NEXT 

2859 IF CTA=1 THEN IF LEN(MS (MZ, 0) ) SLARZ 

(M4) THEN M$ (MZ, 0)=STRING$ ( (LARY (MZ) -LEN 

(M$ (MZ,9)))/2,32)+M$ (M4,0) 

2869 LOCATE 19,24:PRINT"Largeur du menu“ 

STR$ (LARZ(M4)+2)" colonnes, "; 

2876 PRINT" hauteur "STR$ (NZ (M4) +24T4 (M4) 

}" lignes." 

288% LOCATE 29,25 

2896 PRINT "Surface de"STR$ ( (LARZ (M4) +2) 

#CZ4NL (MA) + TA (MA) D) s 

2906 PRINT" caracteres. ":G0SUB 3336:FOR 

HÉ=1 TO 5009: NEXT: :MENU, 4, 56,18 

2916 IF CZ=1. THEN MODEC4=1 

2920 IF C4=2 THEN MODEC4=2 

2934 IF C#=3 THEN MODECZ=4 

2940 BUF%= (LARZ (M4) +4) # (24N4 (MA) + TZ (M4) ) 

+B+MODEC* 

2950 IF BUF4>=BUFFERZ THEN BUFFERZ=BUFY 

2966 FOR H4=23 TO 25:LOCATE 1,H4:PRINT 5 

TRING$ (78, 32) :NEXT 

2970 LOCATE 14,24:PRINT"En aode"STR$(3-C 

4)" ce menu necessite un buffer"; 

2980 PRINT " de"STR$(BUF4)" octets." 

2996 RETURN 

3600 

3919 ‘Option de saisie des caracteristi- 
ques des menus deroulants 


3629 ‘ 
3030 FOR M4=6 TO 9:G0SUB 3089:1F UPPERS$( 
A$)<>"F" THEN GOSUB 2620:G0SUB 2780:ELSE 
M4=9:G0T0 3070 

3040 LOCATE 28,22:FRINT'X Etes vous d'ac 
cord (D/N) X" 


3050 A$="":WHILE A$<>"0" AND A$<>"N":A$= 

UPPERS (INKEVY$) : END 

3060 IF A$="N" THEN MEME 

3674 NEXT:RETURN 

3986 ‘ 

3696 ‘Affiche le contenu des menus 
deroulants (pour l'edition et les 
modifs) 


3106 
3119 MODE 2: INK 0,15:INK 1,9:LOCATE 9,i: 
PRINT'MINI-MAC X Editeur X'; 
3126 PRINT" MINI-MAC 

menu numero X"STR$(M4)" X" 
3136 MOVE 66,180: DRAWR 511,0 
3146 LOCATE 4,3:PRINT K1$3: T4 (M4)=0 

3156 PRINT" (Choisir=ESPACE, vali 
der=ENTER et finir=F)" | 
3169 A$="":WHILE A$<5" " AND UPPERS (AS) < 
>"F" AND A$C>CHRS (13) : A$=INKEYS: HEND 
3170 IF A$=" ‘ AND TAiM4) THEN LOCATE 4, 
3: PRINT K1$:T4(M4)=0:GOTO 3194 

3186 IF A$=" “ AND NOT TÆ(MX) THEN LOCAT 
E 4,3:PRINT K2$4:T4(M4)=1 

3196 IF UPPER$(A$)="F" THEN 3260 

3206 IF A$=CHR$(13) THEN 3216 ELSE GOTO 
3166 

3214 GOSUB 23270:F0R J£=1 TO 17:LOCATE 6, 
Jk+4:PRINT"Option No"STR$(J#) :NEXT 

3226 LOCATE 34,22:PRINT'X Q pour finir X 


Edition du 


3236 FOR J£=i TO 17:LOCATE 20,J%+4: PRINT 
M$ (MZ, J2)+STRINGS (40-LEN (M$ (MX, 2), 46) 
:NEXT L 
3240 IF T£(M£)=1 THEN LOCATE 31,3:PRINT 
“Titre "M$ (M2,0) +STRINGS$ (40-LEN (M$ (MZ,0) 
),46) 

3250 IF T4(M4)=0 THEN LOCATE 31,3: PRINT 
STRING$ (59, 32) 

3266 RETURN 


3306 LOCATE 3,4:PRINT CHR$ (150) +STRING$ ( 
73,154)+CHR$ (156) 

3310 FOR 14=4 TO 17:LOCATE 3, 1%+5: PRINT 

CHR$ (149) 

3320 LOCATE 77,1%4+5:PRINT CHR$(149) :NEXT 
3330 LOCATE 3,22:FRINT CHR$(147)+STRING$ 
(73,154)+CHR$ (153) 

3340 RETURN 

3350 ‘ 
3366 ‘Implantation du code objet 

(1924 octets) Bon courage !!! 

3380 AD/=4A270:RESTORE 346û 

3396 CHECKSUML=: JA=JA+1 

3400 FOR 14=0 TO 15:READ A$:POKE AD%, VAL 
("&"+A$) : ADA=ADA +1 

3410 CHECKSUM=CHECKSUMA+VAL ("8 "+A$) 
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3424 NEXT 

3430 READ SOMMEZ 

3446 IF SOMMEXC>CHECKSUMX THEN PRINT"I1 
y a une erreur dans les datas.":PRINT"Ve 
rifiez la ligne No"STR$({(J4-1)#10)+3460 
}: END 

3456 IF SOMMEZ=1145 THEN RETURN ELSE GOT 
0 3390 

3466 DATA DD, 56,61,DD,5E.,09,ED,53,2E, A6, 
01,83,A2,21,8D,A2, 1785 

3476 DATA C3,D1,BC,88,A2,C3,91,A2,4D,45, 
4E,D5, 00, 00,00, 06, 1829 

3489 DATA 00,FE,03,C0,DD,7E,64,32, 1C, A6, 
DD, 7E,02,32, 1A,A6,1631 

3490 DATA DD,7E,04,32,30,A6,87,26,06,6F, 
11,54,46, 19,22,B3, 1404 

3596 DATA A2, DD, 2A, 34,12, DD, 7E,06,32,28, 
A6, DD, 7E,02,32,2A,1539 

3516 DATA A6,CD, 3C,A3,CD,20,A5,CD,6E, À, 
CD, 2A, A4, CD, AD, A4, 2429 

3526 DATA CD,FO,A4,CD,9D,A5, CD, 4D, A5, CD, 
12,A6,C9,ER, 29,29,2490 

3536 DATA 29,EB,C9,E5,CD, 11,BC,EB, 30,02, 
29,29,20,01,29,EB,1792 

3549 DATA E1,C9,7A,2F,57,78,2F,5F,13,09, 
CB, 2D,CB, BD, CB, 2C, 2054 

3556 DATA DÔ,CB,FD,C9, 06,08, C5,ED, 58, 28, 
A6,CD,E3,A2,43,2A,2313 

3560 DATA 26,A6,7E,EE,FF,77,23,22,26, A6, 
19,F3,C1,ED,5B,28, 2035 

3570 DATA A6,CD,E3,A2,2A,26,A6,ED, 52,22, 
26,46,11,09,98,19,1613 

3586 DATA 22,26,A6,10,D1,2A,24,A6, 22,26, 
Ab,C9,ED,5B, 1,06, ibbb 

3596 DATA 1B,CD,DD,A2,CD,E3, 
Ab,ED,5B, 1C,A6,CD,2476 

3600 DATA DD,A2,EB,29,EB,21,9F,01,ED,52, 
EB,ED,53, 3A, A6, ED, 2422 

3616 DATA 5B,28,46,13,13,CD,DD, A2, iB, CD, 
E3,42,2A,36,h6,19,1831 | 
3620 DATA 22,38,A6,ED,5B,2A,A6, 15,13, DD, 
7E,01,B7,28,01,13,1421 

3634 DATA CD,DD,A2,EB,29,EB,CD,F2,A2,2A, 
3A,46,19,23,22,3C,2128 

3648 DATA 46,11,03,00,CD,E3,42,2A,36,À6, 
19,22,3E, A6, 11,03,1349 

3656 DATA 00,CD,E3,A2,2A,38,A6,ED, 92,22, 
46, A6, 11,08,00,CD, 1671 

3669 DATA. ES, A2, 2À, 36,46, 19,22,42,86, 11, 
908,00, CD,ES3, A2, 2A, 1693 

3670 DATA 38, A6,ED, 52, 22,44, Ab, 2A, 3A, Ab, 
DD,7E,91,B7,28,64, 1650 

3686 DATA 66, 14,18,02,06,04,2B, 19,FD,22, 
46,6, 2A,3C, A6, 23, 0947 

3696 DATA 23,23,23,23,22,48, Ab, 2A,3À, 06, 
CD, FA, A2,22,4E,A6,1573 
3706 DATA ED,5B,2A, A6, 13, 
28,61,13,CD, DD, A2,1753 
3716 DATA ED,53,4A,A6,2A,3A, A6, DD,7E, 01, 


2,ED,53, %6, 


13,DD,7E, 01,87, 
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87, 28,04, 06, 20, 18, 1463 
3726 DATA 02,06, 19,28, 10,FD,CD, FA, A2, 22, 
22,46, ED,58, 28, 6, 1721 
3730 DATA 13,13,CD,E3,A2,ED,53, 4C, Ab, C9, 
ED, 5B, 36, A6, 2A, 3A, 2043 
3740 DATA A6, CD, EA, BB,ED, 5, 38, A6, 24,24, 
A6, CD, F6, BB, ED, 5B, 2574 
3756 DATA 38,46, 28,20, A6,CD,F6, BE, ED,5E, 
36, A6, 28, 3C, Ab, CD, 2149 
3760 DATA F6,BB,ED,5B, 36, A6, 24, ZA, Ab, CD, 
Fé,BB,ED, 58, 42, A6, 2445 
3778 DATA 2A,46,06,CD,EA,BB,ED, 58, ZE, A6, 
24,46, 46,CD,F6, BB, 2376 
3780 DATA ED,5B, 3E, A6, 24,48, Ab, CD,FB, BE, 
ED, 5B, 42, A6, 2A, 48, 2148 
3790 DATA A6,CD,F6, BB,ED, 5, 44, A6, 28, dé, 
A6, CD, EA, BB, ED, 58, 2598 
3800 DATA 49, A6, 24,46, A6, CD, F6, BB, ED,5E, 
40, A6, 2A, 48, Ab, CD, 2189 
3816 DATA F6, BB, ED, SE, 44, A6, 2A, 48, A6, CD, 
F6,BB, C9,ED,5B, 1A, 2468 
3820 DATA A6, 13,E0,53, LE, A6,ED,5E, 1C, A6, 
13,ED,53, 29,86, DD, 1981 
3830 DATA 7E,01,87, 28,24, 13,ED,53, 20,6, 
11,08, 00, CD,E3, A2, 1548 
3846 DATA 2A, 36,46, 19,EB, 24, SA, A6, 28, 28, 
28,28, 28, CD, CO, BB, 1587 
3850 DATA DD, 23, DD, 7E,02,87,28,07,CD,FC, 
BB, DD, 23, 18,F3,C9, 2203 
3840 DATA 3A,1E, 46,67, 34,29, Ab, 6F,CD, 75, 
BB, DD, 7E,03, 87, 28, 1846 
3870 DATA 07, CD, SA, BE, DD, 23, 18,F3, DD, 23, 
DD, 7E,93,FE,FF, 28, 2167 
3886 DATA 0€, 3A, 20, A6, 30, 22, 20, A6, 6F, 3, 
1E,A6,67, 18,09, C9, 1488 
3894 DATA ED,5B, 1A,A6, 1B,CD, DD, A2, 2A,4€, 
A6, CD, 1D, RC, 22,50, 1957 
3900 DATA Ab, ED, 5B, 52, A6, 3A, 44, A6, 47,05, 
ES, 3A, 40, A6, 30, 30, 1957 
3916 DATA 4F,06,00,ED, Ô,E1,CD, 26, BC, Ci, 
19,ED, C9, ED, 58, 59, 2209 
3920 DATA Ab, 28, 52, Ab, 3A, 4, A6, 47,C5,D5, 
3A,40, A6, 30, 30, 4F, 1734 
3930 DATA 06,00, ED, BÔ,EB,E1,CD, 26, BC,EE, 
C1,19,EB, C9, 3A, 28, 2288 
3940 DATA Ab, 47,38, 1A, A6, 80,22, 32, A6, 3, 
24,46, 47,47, 3A, 10, 1375 
3950 DATA Ab, 80,5F,DD, 7E,01,87,28,01,10, 


_3A,32,46,57,3A, 1A,1434 


3960 DATA A6,67,25,3A, 1, A6,6F, 20,97, CD, 
44,BC,C9, ED, 58, 1, 1881 
3970 DATA A6, CD, DD, A2, 2A, 22, Ab, CD, 1D, EC, 
22,24, A6, 22, 26, Ab, 1892 
3986 DATA CD,64,A3,3E, 01,32, 20, A6, CD, 09, 
BB, 39, FB,FE, OD, CB, 1862 
3990 DATA FE,FO,CC,F0,AS,FE, F1, CC, CC, A5, 
18,EC, 3A, 2C, Ab, 47, 2770 
4000 DATA 3A, 24, A6, BB, CB,CD, 04, A3, 24, 26, 
46,11,50, 09, 19,22, 1424 


4619 DATA 26,46,22,24, A6, ZA, 20, A6, 23,22, 
2C,A6,CD,44,43,C9,1544 
4029 DATA ZA, 2C, A6,FE,61,C8,CD, 44. A3, ZA, 
26,46,11,4F,69,ED, 1674 
4670 DATA 2,22, 26,h6,22,24, A6, ZA, 2C, A6, 
28,22, 2C,A6,CD,44,1364 
4644 DATA A3,C9,3A,2C, A6, 2A,2E, A6, 77,09, 
60,60, 60,00, 00,06, 1286 
4058 DATA 66,06, 00,00, 00,06,00,00, 00,00, 
06,60,01,04,60,60,6001 
4664 DATA 06,06,00,00,00,06, 00, 60,06,06, 
66,06, 00,00, 00, 06, 6466 
4674 DATA 06,00, 40,00, 06, 00,06, 00, 00,06, 
66,00,00,00, 06,00, 060046 
4686 DATA 06,66,57,96,64,96,41,90,45,96, 
AA, 96,C6,96,13,91,1751 
4696 DATA 5E,91,7C,91,9E,91,ED,91,48,06, 
66,00, 00,06,46,06,1145 
4168 
4116 ‘Implantation du texte des adresses 
49606 a 296B6 (1718 caracteres) 











4126 : 
4136 AD4=49000:RESTORE 4230 

4146 READ LAR4:IF LAR4=Q THEN RETURN 
4156 READ TZ,NA:FOKE AD4,LARL:PDÉE AD4+i 
T4 

41 FOFE AD4+2, NA: ADA=AD4+3 

4179 READ M$ 

4184 IF M$="FIN" THEN POÉE AD, FF: ADA=A 
Dx+i:60T0 4144 

4196 FOR 14=1 TO LEN(M$) 

42600 AL=ASC(MIDS (M$, 14, 11): POKE ADX, A4: À 
DA=AD4+1 

4219 NEXT I4 

4224 FOKE AD%,6:ADX=AD4+1:G0T0 4174 

4236 DATA 14,01,04,MENU PRINCIFAL,Editeu 
r, Sauvegarde 

4244 DATA Mode d'emploi,Retour basic,FIN 
4256 DATA 15,604,82,Sans imprimante, Avec 
imprimante, FIN 

42b6 DATA 14,61,69,CALCULETTE,addition,s 
oustraction 

4276 DATA multiplication,division,quitte 
r,FIN 

4280 DATA 12,96,42,confirmation,annuiati 
on, FIN 

429% DATA 18,61,693,MODE d'utilisation," 
MODE 2 (649#206) " 

43üÿ DATA " MODE 1 (326+266)"," MODE 0 ( 
1684266)", FIN 

4519 DATA 26,1,2," # DISQUETTE, *", 
" Effectuer une sauvegarde" 

4326 DATA “ Catalogue du drive A",FIN 
4526 DATA 13,66,2," Retour menu," Sauve 
garder", FIN 

4348 DATA 16,60,2," 
etour menu", FIN 
4356 DATA 14,66,2," Retour menu"," Retou 
r Basic", FIN,8 
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